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Guida all’input dei programmi sullo ZX Spectrum 


Le "parole" comprese tra parentesi graffe indicano i caratteri grafici pre- 
defimv (G). il tasto (numero seguente la G). la necessitò di premere il tasto 
insieme a CAPS SHIFT (eventuale S precedente lo G) e il numero di ripeti¬ 
zioni del tasto richieste (eventuale numero all'inizio della "parola"). I ca¬ 
ratteri grafici definiti dal programma sono invece indicati da lettere maiu¬ 
scole (corrispondenti al tasto do usare) sottolineate. 


Quando leggete Premete Vedrete 


{Gl} 

{G2} 

{G 3} 

{G4} 

{ G 5} 
{G6} 
{G7} 
{G8 } 
{SCI} 
{SG2} 
(SG3} 
{SG4 I 
{SG5} 
{SG6} 
{SG7} 
{SG8 } 


Se non siete 

S i in modo 
entrateci 
schiacciando 
contempora 
neamente 
CAPS SHIFT 
* 9 


□3 



□a 



c An 

xm. 

[ c a n 
MtlF~T 

l Afv 

s»n n 

C TapT 

uan 

1 (AT> 

UIIFI 

I fW 
\Hirr 

I CAPS 
MUKT 

TÀrT 

mire 
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■ 

I 

S 



□ 






Se dovete 
uscite dal 
modo C. 
schiacciate 9 


leggete | 


Quando 


Premete 


Vedrete 


A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 


Simbolo grafico 
definito nel 
programma in uso. 


Se non siete 

r i 


gii in modo 

ij i 


0. entrateci 

i__i 

Se dovete 

schiacciando 

TZ -1 

uscite dal 

contempota- 

K ! 

modo C. 

neamente 

* . J 

schiacciate 9 

CAPS SHIFT 

n- ] 


c 9 

i- 1 



rrj ] 


iZ 


Guida per l’input dei programmi versioni VIC IO e C64 


Notate che / listati contengono "parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente di tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico "solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


{CLR} 

{HOME} 

{SU} 

{GIU 1 } 

{SIN} 

{DES} 

{ RVS } 
{OFF} 

{ BLK } 
{WHT} 
{RED} 


I SHIFT 

il 

CLB/HOME 


■■■■ 


CLR/HOME] 


HHHÉ 

SHIFT 

! 

lì CRSR Jll 




lì CBS» Ul 


hhb 

SHIFT 


^CRSR =?[ 




C=CRSR=>] 



UH 

I CTRL 

uh 


[ CTRL 

u 

mm 


CIRI 

_ 

[ CTRL 

1 1 


G 


s 


□ 






{CYN } 
{PUR} 
{GRN} 
{BLU} 
{YEL} 
[<1>] 

( < 2 > } 
l < 3 > } 
l<4>] 
[<5>] 
[< 6 >] 


1 CTRL 

n 


o 

CTRL 


CTRL 

o 

o 


CTRL 



CTRL 

o 


30 

30 

30 

30 

30 

.30 


Ik 

(<7>] 

1 

[<8>] 

□ 

{FI} 

Q 

{F2} 

ai 

{F3 } 

□ 

{ F4 } 

K 

{F5} 

69 

{F6 } 

o| 

{F7 } 

E 

■1 

{F8 } 


30 

□ 

30 

■ ■ 
■ ■ 

ITI 

■1 


ai 


s 

m 

Ifi 

ri-j 

II 

03 

SI 

OcA 

II 

03 

■ 





















































































































^cippk i 

4 

paddle ^^CipplC 

6 

extended basic l i" 99/4A 

8 

basic J(^T1"99/4A 

II 

sinczlair- 
16/48K Spectrum 

14 

Sinclair 
ì 6/48K Spectrum 

16 

C64= 

18 

C64: 

19 


11 

®M!tl 15 

18 
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«oppia 





Lisiaiore 


Potete ancora capire un programma che ave¬ 
te scritto sei mesi fa? 

Vi ricordate il trucco che avete in quella lunga 
linea BASIC che c'è nel vostro programma? 
Questo programma trasforma il listing del vo¬ 
stro programma Applesoft in un formato strut¬ 
turato e di facile lettura in particolare: 

- separa nettamente i commenti dalle istruzioni. 

- omette i due punti e gli statement LET. 

- indenta gli statement FOR NEXTglobalmente. 

- spezza logicamente le linee molto lunghe. 

Copiate accuratamente i due programmi: 

I) LISTATORE 


1 HOME : INPUT "SLOT STAMPANTE? 
";SL: GOTO 82 

2 P = P + 1:B = PEEK (P): RETUR 
N 

4 D = 0: GOSUB 6: PRINT S$: RETU 
RN 

6 LC = LC + 1 : IF LC < LP THEN 
RETURN 

7 GOSUB ìli:LC = 6:PC = PC + 1: 
PRINT S$: PRINT BB$;LB$(CONTI 

NUA) " 

9 FOR K = LP TO 63: PRINT S$: N 
EXT 

11 H$(4) = "PAG. " + STR$ (PC): 

FOR K = 1 TO 4:E = INT ((LL - 
LEN (H$(K))) / 2) +1: PRINT M$ 

; LEFT$ (BB$,E);H$(K): NEXT :K = 
FRE (0): PRINT S$: IF NOT D T 
HEN RETURN 

13 N$ = STR$ ( VAL (N$)):K = L 
EN ( N$ ) 

14 C$ = RIGHT$ (( LEFT$ (LB$,(6 
- K)) + CHR$ (91) + N$ + CHR$ 
(93) + S$),8) + RIGHT$ (C$,( L 

EN (C$) - 8)):K = FRE (0): RETU 
RN 

16 GOSUB 2 :D = B: GOSUB 2:D = 2 
56 * B + D: IF D > 0 THEN GOTO 
27 

18 GOSUB 111: GOSUB 4: GOSUB 4: 

GOSUB 6: PRINT M$;LB$;"FINE LIS 
TING" 


2) CREA LIST 

Dopo aver controllato l'esattezza della digita¬ 
zione, eseguite il programma CREA LIST. Que¬ 
sto programma crea un file in formato TEXT 
dal nome LIST. A questo punto avete sul di¬ 
schetto sia il file in formato text dal nome LIST 
che il programma LISTATORE. Non vi servirà 
più il programma CREA LIST che potrete me¬ 
morizzare su un altro dischetto. 

Il programma da listare va caricato per primo. 
Quindi si richiama il file LIST col comando EXEC 
LIST. Questo comando carica e mette in ese¬ 
cuzione il programma LISTATORE che effettua 
effettivamente la stampa del primo program¬ 
ma caricato in memoria. 

20 GOSUB 4: GOSUB 4: GOSUB 6: P 

RINT M$;"LUNGHEZZA PROGRAMMA = " 
;( PEEK (211) - PEEK (209)) * 2 

56 + PEEK (210) - PEEK (208);" 

BYTES, TOTALE DI ";TN;" NUMERI 
DI LINEA" 

21 GOSUB 4: GOSUB 6: PRINT M$;( 
TS - TR);" TOTALE STATEMENTS NON 
-REM, ";TR;" TOTALE REMARKS": GO 
SUB 4: GOSUB 6: PRINT M$;"END" 

23 PRINT CHR$ (4);"PR# 0": POK 
E 33,40: HOME : VTAB 12: HTAB 11 
: INVERSE : PRINT " FINE LISTING 
": NORMAL 

25 POKE 105, PEEK (210): POKE 1 

06, PEEK (211): POKE 107, PEEK ( 
210): POKE 108, PEEK (211): POKE 
109, PEEK (210): POKE 110, PEEK 
(211): POKE 111, PEEK (115): PO 
KE 112, PEEK (116): POKE 103, PE 
EK (208): POKE 104, PEEK (209): 

POKE 175, PEEK (210): POKE 176, 
PEEK (211): END 

27 TN = TN + 1 : GOSUB 2:D = B: G 
OSUB 2 :K = B * 256 + D:D = LEN 
( STR$ (K)):N$ = RIGHT$ (( LEFT 
$ (LB$, ( 7 - D)) + STR$ (K) + " 

") ,8) 

29 TS = TS + 1 :D = 0: GOSUB 2: I 
F B = 58 THEN B = 178 

30 IF B = 178 AND NOT RF THEN 
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GOSUB 4: GOTO 34 

31 IF B = 178 AND RF THEN GOTO 
34 

32 IF RF THEN RF = 0 : GOSUB 4 

34 IF B = 0 GOTO 54 

35 IF B > 127 THEN B = B - 127: 
GOTO 41 

36 IF B = 34 THEN QF = - QF 

37 IF B = 58 AND NOT RF AND QF 
< 1 THEN TS = TS + 1 : G$ = G$ + 

" GOTO 54 

38 IF B < 32 THEN B = B + 64:G$ 
= G$ + CHR$ (124) + CHR$ (B): 

B = 1 24 

39 G$ = G$ + CHR$ (B): GOSUB 2: 
GOTO 34 

41 IF B > 1 07 THEN G$ = G$ + " 
?! GOSUB 2: GOTO 34 

43 IF B = 51 THEN TR = TR + 1:R 
F = 1 : RS = 1 

44 IF B = 2 THEN FF = 1 

45 IF B = 69 THEN CF = 1 :G$ = G 
$ + T$(B): GOTO 54 

46 IF B = 4 THEN DF = 1 

47 IF B = 43 THEN GOSUB 2: GOT 
O 34 

4 8 IF B = 3 THEN FS = FS - 1 : I 
F FS < 0 THEN FS = 0 
49 G$ = G$ + T$(B): GOSUB 2: GOT 
0 34 

51 SF = 0:RS = RS + 1 : IF RS > 2 
THEN RS = 2: 

52 IF DFANSRS > 1 THEN RS = 1 

54 K = IM * (FS + CS + RS) :E = K 
+ 13: IF K > 0 THEN G$ = LEFT$ 
(BB$,K) + G$ 

56 IF NOT D THEN C$ = N$ + G$ 

57 IF D THEN C$ = LB$ + G$ 

59 K = LEN (C$) - LL: IF K < 1 
GOTO 73 

60 G$ = RIGHT$ (C$,K):C$ = LEF 
T$ (C$,LL):SF =1: IF DF GOTO 65 

62 D = LL 

63 IF MID$ (C$,D,1) = S$ GOTO 

71 

64 D = D - 1 : IF D > E THEN GOT 
0 63 

65 D = LL 

66 K = ASC ( MID$ <C$,D,1)): IF 
K < 42 OR K > 47 THEN GOTO 69 

67 IF DF AND K = 44 THEN GOTO 

» 

71 

68 IF NOT DF AND K < >46 GOT 

0 71 

69 D = D - 1 : IF D > E GOTO 66 

70 GOTO 73 

71 K = LL - D: IF K > 0 THEN G$ 


= RIGHT$ (C$ , K) + G$:C$ = LEFT 

$ (C$ ,D) 

73 GOSUB 6 :K = LEN (C$): IF SF 
= 0 OR K < 2 OR RF THEN 76 

74 IF MID$ (C$,K,1) = S$ THEN 

C$ = LEFT$ (C$,(K - 1)) + CHR$ 

(95) 

75 IF LEN (G$) >2 AND LEFT$ 

(G$,l) = S$ THEN G$ = CHR$ (95) 

+ RIGHT$ (G$ , LEN (G$) - 1) 

76 GOSUB 111 :K = LEN (C$) : PRI 
NT M$; LEFT$ (C$,8);: GOSUB 112: 


PRINT 

RIGHT$ 

(C$ 

, (K - 

8) ) 

: K 

— 

FRE (0) 

• 

• 

IF SF 

THEN D 

= 1 : 

GOTO 

51 









77 

QF = 


- 1 :RS 

= 

0 : DF 

= 0: 

IF 

F 

F THEN FS 

= FS 

+ 1 

: FF = 

0 



78 

D = 0 

• 

• 

IF CF 

THEN CS 

= CS + 

1 

: CF 

= 0 








79 

SF = 

0 

: G$ = 

ii ii • 
• 

IF B 

= 0 

THEN 

CS 

= 0: 


GOTO 1 
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80 

GOSUB 

2 : D = 

1 : 

GOTO 

34 



82 

DIM 

T$ (107) 

,H$ 

(4) 

# 



85 

P = 204 8 :B = 

0: 

RS = 

0 :CS 

— 

0: 

FS 

= 0 :RF 

= 0 : CF = 

0 : FF 

= 0 

: DF 

= 

0: 

SF = 

0 

: QF = 

— 

1 : LL 

= 80 

: LP 

— 

60 

: IM = 


4 :E = 

0:TN = 0 

:TS 

= 0 

: T 

R = 

0 :S$ 


_ ii ii 






86 

C$ = 

it 

" : N$ = 

Il II 

: G$ = 

Il 11 • 

• 

M$ 

= 

19 fi # 
• 

H$ (0) 


= "": LB$ 

_ it 


ii 

: B 


B$ = " 


1 ","Plot ","Hlin "/’Vlin 
2'*, "Hgr " , "Hcolor = ","Hpl 
raw " f "Xdraw " r "Htab " ,"H 
Rot = ” 

A "Scale = ","Shload" 

" /'Notrace"/'Normal" f "lnv 
Flash"/'Color = "."Pop"/' 
Himem : "/'Lomem : "/'One 
esuxne "/'Recali "/'Store 
d = "/' "/'Goto "/'Run"/' 
estore" /'& "/'Gosub "/'Re 

A "REM-" 

A "Stop"/'On "/'Wait ", 
,"Save ","Def ","Poke 
,"Cont"/'List " ,"Clear" 
New","Tab("To ","Fn ", 
" Then At ","Not ","S 

+ « ii _ i» M it ii 

A *"/" /'*"," And "," Or " 
= ","<" ,"Sgn","lnt","Abs" 





, "Usr" , "Ere","Scrn(","Pdl","Pos" 
,"Sqr","Rnd","Log","Exp","Cos"," 
Sin","Tan","Arctan","Peek","Len" 
,"Str$","Val","Asc","Chr$","Left 
$","Rigjt$","Mid$" 

92 FOR K = 1 TO 107: READ T$(K) 

: NEXT 

94 HOME : VTAB 3: FLASH : PRINT 

" RUN 23 NORMAL : PRINT "RE 

SETTA I PUNTATORI DOPO RESET" 

95 PRINT : PRINT "INIZIO DEL PR 

OGRAMMA: PEEK (209) * 256 + 

PEEK (208): PRINT " FINE DEL PR 
OGRAMMA: PEEK (211) * 256 + 

PEEK (210): PRINT " FINE D 

I 'LISTATORE': "; PEEK (176) * 2 

56 + PEEK (175) 

97 PRINT : INPUT "NOME PROGRAMM 

A: ";H$(1): INPUT " PROGRAMMATO 
RE: ";H$(2): INPUT " DATA 

: ";H$(3): PRINT 

98 PRINT : PRINT "LUNGHEZZA PAG 

. 60 LINEE,VUOI CAMBIARE?": GET 
H$(0): IF H$(0) = "S" THEN INPU 

T " LUNGH. PAG.: ";LP: IF LP > 
62 THEN GOTO 98 

99 PRINT : PRINT "MARGINE SINIS 
TRO = 0. LO VUOI?": GET H$(0): I 
F H$(0) = "S" THEN INPUT " MAR 
GINE : ";K: IF K > 0 AND K < 49 
THEN M$ = LEFT$ (BB$,K):LL = LL 

- K 

100 PRINT : PRINT "RIENTRO SPAZ 

I =4, VUOI CAMBIARE?": GET H$( 
0): IF H$(0) = "S" THEN INPUT " 

SPAZI: ";IM: IF IM < 0 OR IM > 
12 THEN GOTO 100 
102 HOME : INVERSE : PRINT " CA 
RTA AD INIZIO FOGLIO ": PRINT " 


POI ": PRI 

NT " ACCENDI LA STAMPANTE" 

: NORMAL : PRINT : GET H$(0) 

104 HOME : PRINT CHR$ (4);"PR# 
";SL: POKE 33,30 

106 PRINT CHR$ (9)"66N" CHR$ ( 
9) "I" 

109 LC = 6:PC = 1: GOSUB 11: GOT 
O 1 6 

111 RETURN 

112 RETURN 


21 0 
3) + 
21 5 
220 
221 
222 

223 

224 
230 
235 


D$ = CHR$ (4):C$ = CHR$ (1 


D$ 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


C$;"OPEN LIST" 

C$;"WRITE LIST" 

"POKE 208,PEEK(103)" 

209, PEEK(104)" 

210, PEEK(175)" 


"POKE 

"POKE 

"POKE 

"POKE 


211,PEEK(176) 

_ 104,PEEK(211)" 

_ "IF PEEK(210)<254 THE 

POKE 103,(PEEK(210)+1)" 

40 PRINT "IF PEEK(210)>253 THE 
POKE 103,(PEEK(210)-254):POKE 
04,(PEEK(211)+1) 


!45 PRINT "POKE 
211)*256-2),0" 

:50 PRINT "POKE 
21 1 )*256-1 ) ,0" 

:55 PRINT "POKE 
211)*256),0" 

60 PRINT "POKE 
211)*256+1),0" 

65 PRINT "POKE 
211)*256+2),0" 

70 PRINT "RUN LISTATORE" 
80 PRINT D$;"CLOSE" 


(PEEK(210)+PEEK 
(PEEK(210)+PEEK 
(PEEK(210)+PEEK 
(PEEK(210)+PEEK 
(PEEK(210)+PEEK 


Dardi 


iiPPPkz 

paddle 


Con questo gioco vengono messi olla provo lo 
rapidità di riflessi e lo precisione nello miro di 
due concorrenti, / quali potranno comodamente 
divertirsi in coso senza rischiare di coprire di 
fori le pareti o di trafiggere qualche incauto 
amico. 


Il bersaglio comparirà nello schermo in alto, 
mentre i dardi che devono essere lanciati pas¬ 
seranno in basso. Ad ogni turno ciascun gio¬ 
catore ha a disposizione tre dardi, che /onere¬ 
rà premendo il bottone della paddle. Il pun¬ 
teggio per ogni lancio varia da 10 a 50 a se- 
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conda del settore del bersaglio colpito dal dar¬ 
do. Vince il concorrente che totalizza per pri¬ 
mo 210 punti esatti. 


34 GOSUB 30000 

35 P = 2 30 :D = 5 

40 CALL - 936 

41 HTAB 15: PRINT "FRECCE": PRI 
NT : PRINT 

56 INPUT "DAI IL NOME DEL PRIMO 
GIOCATORE "; Ni $ 

58 INPUT "DAI IL NOME DEL SECON 
DO GIOCATORE ";N2$ 

70 REM MAIN 

80 GOSUB 1000 

100 SI = 0:S2 = 0:N = 1 

105 CALL - 936 

106 GOSUB 4500 

1 30 FOR X = 0 TO . 39 

132 COLOR= 15: PLOT X,39 

135 IF PEEK ( - 16287 + TURN) 

> 127 THEN GOSUB 2000 
148 COLOR= 0: PLOT X,39 
155 NEXT X 
200 GOTO 130 
900 END 

1000 REM ROUTINE PER DISEGNARE 
IL BERSAGLIO 
1010 GR 
1020 COLOR= 9 

1030 FOR F = 10 TO 13: VLIN 0,3 
AT F: VLIN 0,3 AT F + 15: NEXT 
F 

1035 COLOR= 6: FOR F = 14 TO 16 
: VLIN 0,3 AT F: VLIN 0,3 AT F + 
8: NEXT F 


1 040 

COLOR= 13: FOR F = 17 

TO 1 

3: VLIN 0,3 AT F: VLIN 0,3 AT F 

+ 3: 

NEXT F 


1 045 

COLOR= 1: VLIN 0,3 AT 

1 9 

1 050 

COLOR= 8: HLIN 0,39 AT 

1 0 

1 095 

RETURN 


2000 

FOR Y = 39 TO 0 STEP 

- 1 

2003 

COLOR= 15 


2005 

PLOT X,Y 


2030 

IF SCRN( X,Y - 1) < 

> 0 

THEN 

2050 


2038 

COLOR= 0: PLOT X,Y* 


2040 

NEXT Y 


2050 

N = N + 1 


2055 

GOSUB 7000 


2060 

IF TURN = 1 THEN 3000 


2065 

IF TURN = 0 THEN 4000 


2490 

X = 0 


2500 

RETURN 



Attenzione: qualora con gli ultimi lanci si su¬ 
perasse questo limite il punteggio non aumen¬ 
terà. 


3000 REM TURNO DEL GIOCAT. 2 

302 0 IF N = 4 THEN TURN = 0 : GO 
SUB 7050 

3022 IF N = 4 THEN GOSUB 1000 
3025 IF N = 4 THEN N = 1 
3030 GOSUB 5000 

.3050 S2 = S2 + HIT 
3052 IF S2 > 210 THEN S2 = S2 - 
• HIT 

3055 GOSUB 4500 

3400 GOSUB 2490 

4000 REM TURNO DEL GIOCAT. 1 

4020 IF N = 4 THEN TURN = 1 : GO 

SUB 7050 

4022 IF N = 4 THEN GOSUB 1000 
4025 IF N = 4 THEN N = 1 
4030 GOSUB 5000 

4050 Si = SI + HIT 
4052 IF SI >210 THEN SI = Si - 
HIT 


4055 

GOSUB 4500 



4400 

GOTO 2490 




4490 

REM STAMPA IL 

PUNTEGGIO 


4500 

CALL - 936 



451 0 

VTAB 21 : 

PRINT 

3 

</> 

N • 

II 

;s 

1;: 1 

HTAB 20: PRINT N2$;" = ";S2 

451 5 

IF SI =210 OR 

S2 = 210 

TH 

EN i 

GOSUB 6000 




451 8 

VTAB 23: 

HTAB 

1 0 


4520 

IF TURN = 

0 THEN PRINT 

Il rp 

OCCA 

A 11 ; Ni $ ? 11 

TIRI ";N;" 

II 

4522 

IF TURN = 

1 THEN PRINT 

Il rp 

OCCA 

A ";N2$;" 

TIRI ";N;" 

II 

4550 

RETURN 




5000 

REM CALCOLA IL PUNTEGGIO 

5010 

HIT = 0 




501 5 

IY = 1 




5020 

IF Y = 5 

THEN 

IY = 2 


5022 

IF Y = 6 

THEN 

IY = 3 


5023 

IF Y = 7 

THEN 

IY = 4 


5024 

IF Y = 8 

THEN 

IY = 5 


5030 

IF SCRN( 

X,Y 

CO 

II 

>H 

M 

1 

TH 

EN HIT = 0 




5032 

IF SCRN( 

X,Y 

- IY) = 9 

TH 

EN HIT = 1 0 




5034 

IF SCRN( 

X,Y 

i 

M 

K 

II 

TH 

EN HIT = 20 




5036 

IF SCRN( 

X,Y 

- IY) =13 

T 

HEN 

HIT = 30 
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5038 IF SCRN( X,Y - IY) = 1 TH 

EN HIT = 50 

5100 RETURN 

5990 REM FINE GIOCO 

6000 FOR S = 1 TO 50: GOSUB 700 

0: NEXT S 

6003 ’VTAB 23: INPUT "VUOI GIOCA 
RE ANCORA? ";A$ 


6005 

IF 

S2 = 210 

THEN 

TURN = 

6007 

IF 

SI =210 

THEN 

TURN = 

601 0 

IF 

LEFT$ (A$ , 1) 

= "S" 

N 80 
6020 

TEXT : CALL 

- 936: END 


6990 REM SUONO 

7000 POKE PITCH,P: POKE TIME,D: 

CALL 768: RETURN 
70 50 FOR KK = 1 TO 4 : GOSUB 700 
0: NEXT KK 
7100 RETURN 

30000 POK$ = "173,048,192,136,20 
8,004,198,001,240,008,202,208,24 
6,166,000,076,000,003,096" 

30010 FOR PK ^ 0 TO 18: POKE 76 
8 + PK, VAL ( MID$ (POK$,PK * 4 
+ 1,3)): NEXT PK 

30020 PITCH = 0 : TIME = 1: RETURN 


Filetto 


* TI-99/4A 


extended basic 


Persino alla Tv in un noto quiz è stata ripropo¬ 
sta l'ennesima versione di questo divertentissi¬ 
mo gioco di intelligenza, ed allora perché noi 
dovremmo essere da meno ? 

Eccovi allora un'ottima versione per il vostro 
TI-99 in linguaggio EXTENDED-BASIC che vi 
permetterà di misurarvi con un computer più 
agguerrito che mai, alla ricerca dell'allineamen¬ 
to di quattro qualsiasi pedine personali. 
Inutile dare consigli strategici per questo diver¬ 
tentissimo gioco, ma opportuno segnalarvi al- 

148 CALL CLEAR 
1 50 DIM A(5,7) ,N(20) 

160 ON WARNING NEXT 

170 N ( 1 ) = • 01 

1 80 N ( 2)= • 1 

190 N ( 3) =1 0 

200 N ( 4)=1000 

21 0 N ( 6) =1 

220 N(11)=100 

230 N(16)=10000 

240 CALL CHAR(104,"01010303070F3 
EFC8080COCOEOF07C3FFC3EOF0703030 
1013F7CF0E0C0C0 80 80") 

250 CALL COLOR(10,13,4) 

260 CALL CHAR(112,"804020181C0E0 
703010204183870E0C003070E1C18204 
080C0E0703818040201") 

270 CALL COLOR(11,5,12) 


meno quali tasti utilizzare per effettuare le vo¬ 
stre mosse. 

Il computer vi richiederà, dopo aver “sorteg¬ 
giato ' ' il giocatore avente diritto alla prima mos¬ 
sa, di volta in volta la colonna in cui desidera¬ 
te depositare la vostra pedina e voi non avrete 
altro da fare che inserirne il numero e convali¬ 
dare la mossa premendo il tasto ENTER. Do¬ 
podiché penseré a tutto il computer, anche ad 
indicare la realizzazione di un ‘ 'Filetto ' ', e per¬ 
sino a battervi, garantito! 

280 ON ERROR 1880 

290 JC=14 : : SC = 2 : : K=1 

300 GOSUB 2270 

310 DISPLAY AT (1 ,10) -ERASE ALL:"# 
FILETTO #" :: GOSUB 320 :: GOTO 
41 0 

320 CALL SOUND(100,494,2) 

330 CALL SOUND(100,440,2) 

340 CALL SOUND(400,494,2) 

350 CALL SOUND(100,440,2) 

360 CALL SOUND(100,392,2) 

370 CALL SOUND(100,349,2) 

380 CALL SOUND(200,330,2) 

390 CALL SOUND (400,2 94,2) 

400 RETURN 

410 DISPLAY AT(2,10):"========== 

_ Il 

420 DISPLAY AT(10,5):"SCEGLI IL 
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LIVELLO 01 GIOCO:": 

42j DISPLAY AT (1 3,5):"0 PRINC 
IPIASTE": :" 1 ESPERTO" 

440 ACCEPT AT(17,15):ND 
4 50 IF NDOO AND NDOl THEN 44 0 

460 REM GIOCO 

470 G0SU3 1910 

430 DISPLAY AT(3,0):"OBIETTIVO: 
ALLINEARE 4 ":"GETTONI,IN QUALSI 
A31 VERSO." 

490 DISPLAY AT(6,0):"SORTEGGIO P 
ER CHI INIZIA..." 

500 FOR 1=1 TO 1000 :: NEXT I 

510 RANDOMIZE 

520 JO=INT(RND*2)+1 

530 IF JO=1 THEN 720 

540 REM MOSSA GIOCATORE 

550 JC=13 :: SC=4 :: GOSUB 2270 

560 C=C+1 

570 IF C=36 THEN 1510 

580 DISPLAY AT(3,0):"TOCCA A TE" 

, "NUMERO DI COLONNA, PREGO" 

590 DISPLAY AT(6,0):" " 

600 ACCEPT AT(4,26)BEEP: X 

610 IF X<1 OR X>7 THEN 600 
620 IF G(X)< 5 THEN 650 
630 DISPLAY AT(6,0):"COLONNA COM 
PLETA: RITENTA !" 

640 FOR 1=1 TO 200 :: NEXT I :: 
DISPLAY AT(6,0):" " :: GOTO 600 

650 Y=5-G(X) 

660 CAR=104 
670 G(X)=G(X)+1 
680 A(Y,X)=1 
690 GOSUB 1450 

700 IF L(X)=1 THEN 1570 
710 GOTO 720 

720 REM MOSSA COMPUTER 

730 C=C+1 

740 B=0 

750 M=-l0000 

760 IF C=36 THEN 1510 

770 GOSUB 1820 

780 FOR X=1 TO 7 

790 TT=0 :: GOSUB 860 

800 IF ND THEN GOSUB 1400 

810 IF T<M THEN 840 

820 M=T 

830 XM=X 

840 NEXT X 

850 GOTO 1290 

860 L(X)=0 

870 T=0 

880 Y=5-G(X) 

890 IF (Y=0 AND TT=0)OR(Y<0 AND 



TT=1)THEN T=-100000 :: RETURN 
900 IF Y=5 THEN 950 
910 S=0 

920 FOR J=1 TO 4 : : S = S+A(J,X): : 
NEXT J 

930 GOSUB 1740 
940 IF Y=1 THEN 970 
950 S=0 

960 FOR J=2 TO 5 :: S=S+A(J,X): : 
NEXT J 

970 GOSUB 1740 
980 IF X>4 THEN 1050 
990 FOR D=1 TO X 
1000 S=0 

1010 FOR I=D TO D+3 :: S=S+A(Y,I 
): : NEXT I 

1020 GOSUB 1740 
1030 NEXT D 
1040 GOTO 1100 
1050 FOR D=X-3 TO 4 
1060 S=0 

1070 FOR I=D TO D+3 :: S=S+A(Y,I 
): : NEXT I 
1080 GOSUB 1740 
1090 NEXT D 
1100 AA=X+Y 

1110 IF Y=5 OR AA>8 OR AA<5 THEN 
1 1 50 

1120 S=0 

1130 FOR J=1 TO 4 : : I=AA-J :: S 
= S+A(J,I): : NEXT J 
1140 GOSUB 1740 

1150 IF Y=1 OR AA>9 OR AA<6 THEN 
1 1 90 

1160 S=0 

1170 FOR J=2 TO 5 : : I=AA-J :: S 
= S+A(J,I): : NEXT J 
1180 GOSUB 1740 
1 190 AA=X-Y 

1 200 IF Y=5 OR AA<0 OR AA>3 THEN 
1 240 

1210 S=0 

1 220 FOR J=1 TO 4 : : I=AA+J :: S 
= S+A(J,I): : NEXT J 
1230 GOSUB 1740 

1240 IF Y=1 OR AA<-1 OR AA>2 THE 
N 1 280 
1250 S=0 

1 260 FOR J=2 TO 5 : : I=AA+J : : S 
= S+A(J,I): : NEXT J 
1270 GOSUB 1740 
1280 RETURN 
1290 X=XM 

1 300 DISPLAY AT(4,12) : X 
1310 FOR 1=1 TO 200 :: NEXT I 
1320 CAR=112 
1330 Y=5-G(X) 

1 340 G (X)=G(X)+1 
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1350 A(Y,X)=5 
1360 GOSUB 1450 
1 370 B=1 : : tt=0 
1380 GOSUB 860 
1390 GOTO 540 
1400 REM VALUTAZIONE 
CASI PRECEDENTI 
1410 Y=Y-1 : : TT=1 

1420 GOSUB 890 
1430 Y=Y+l 
1440 RETURN 

1450 REM STAMPA GETTONI 
1460 CALL HCHAR(7+3*Y,3*X,CAR) 
1470 CALL HCHAR(7+3*Y,1+3*X,CAR+ 
1) 

1480 CALL HCHAR(8+3*Y,3*X,CAR+2) 

1 490 CALL HCHAR(8 + 3 *Y,1+ 3 *X,CAR+ 
3) 

1500 RETURN 

1510 REM PAREGGIO 

1520 JC=14 :: SC=2 :: GOSUB 2270 

1530 DISPLAY AT(3,0):"PAREGGIO. 

NON MALE ! !"," ":" ":" " : : GOSU 
B 320 

1540 FOR 1=1 TO 1000 :: NEXT I 
1550 GOSUB 1910 
1560 GOTO 490 

1570 REM VITTORIA GIOCATORE 
1580 JC=14 :: SC=2 :: GOSUB 2270 

1590 DISPLAY AT(3,0):"OK! HAI VI 

NTO. GOSUB 3 

20 

1 600 R(1)=R(1)+1 

1610 FOR 1 = 1 TO 1 000 :: NEXT I 

1 620 GOSUB 1 91 0 

1 630 GOTO 720 

1640 REM VITTORIA COMPUTER 

1 650 DISPLAY AT(3,0) :"SPIACENTE ! 

IO MUOVO IN"; X 
1 660 CAR=112 
1 670 GOSUB 1450 

1680 JC=14 :: SC=2 :: GOSUB 2270 

1 690 DISPLAY AT{4,0) :"E VINCO ! ! ! 
!" :: GOSUB 320 

1700 FOR 1=1 TO 1000 :: NEXT I 

1 71 0 R ( 2) =R ( 2) +1 

1 720 GOSUB 1 91 0 

1730 GOTO 540 

1740 REM VALUTAZIONE 

1750 IF S=3 AND TT=0 THEN L(X)=1 

1760 IF S=3 AND TT=1 THEN T=T-10 
00 

1770 IF S=2 AND TT=1 THEN T=T-10 


1 780 IF TT=1 THEN 181 0 

1790 IF S=15 AND B=0 THEN 1640 

1800 T=T+N(S+l) 

1810 RETURN 

1820 REM STAMPA 

1830 JC=5 :: SC=8 :: GOSUB 2270 

1840 DISPLAY AT(3,0):"TOCCA A ME 
..." :"MUOVO NELLA COLONNA.." 

1850 DISPLAY AT(6,0):" " 

1860 RETURN 

1870 GOTO 1800 

1880 CALL ERR(CD, TY,SE,LN) 

1890 PRINT CD;TY;SE;LN 

1900 RETURN NEXT 

1910 REM DISEGNO GRIGLIA 

1 920 JC=9 : : SC=1 5 

1930 K=1 

1940 GOSUB 2270 

1950 DISPLAY AT(1,10)ERASE ALL:" 
# FILETTO #" 

1960 DISPLAY AT(2,10):"========= 

_ _ I» 

1970 CALL CHAR( 96,"000000FF") 
1980 CALL CHAR( 97 , "3C3C3C3C3C3C3 
C3C" ) 

1990 CALL CHAR( 98,"FFFFFFFFFFFFF 
FFF" ) 

2000 FOR 1=9 TO 24 STEP 15 
2010 CALL HCHAR(1,2,98,22) 

2020 NEXT I 

2030 FOR 1=12 TO 21 STEP 3 
2040 CALL HCHAR(1,2,96,22) 

2050 NEXT I 

2060 FOR 1=2 TO 23 STEP 3 
2070 CALL VCHAR(10,1,97,14) 

2080 NEXT I 

2090 FOR 1=1 TO 19 STEP 3 

2100 DISPLAY AT(8,I) : (I + 2)/3 

2110 NEXT I 

21 20 FOR J=1 TO 7 

21 30 L(J) ,G (J) =0 

2140 FOR 1=1 TO 5 

21 50 A(I, J) =0 

2160 NEXT I 

2170 NEXT J 

2180 C=0 

2190 DISPLAY AT(9,23):"SCORE" 
2200 DISPLAY AT(8,23):"=====" 
2210 DISPLAY AT(10,23):"=====" 
2220 DISPLAY AT(12,24):"TU" 

2230 DISPLAY AT(14,24) :R( 1 ) 

2240 DISPLAY AT(17,24):"IO" 

2250 DISPLAY AT(19,24):R(2) 

2260 RETURN 

2270 REM COLORE STAMPA 
2280 FOR 1=0 TO 8 
2290 CALL COLOR(I,JC,K) 
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2300 CALL SCREEN(SC) 
2 310 NEXT I 


2320 RETURN 


- — - * TI-99/4A 

Pixelator 


In quello porte di progrommo dove viene ef¬ 
fettuato lo definizione dei corotteri grafici, può 
capitare di definire un particolare carattere (o 
gruppo) per poi accorgersi che, una volta co¬ 
dificato in esadecimale (e dunque visualizzato 
sul video), non risulta quello che ci si aspetta¬ 
va effettivamente. 

Questo fatto è dovuto alla riduzione alla quale 
il carattere codificato è soggetto ed al diverso 
contrasto che ogni coppia di colore possiede (ciò 
si accentua in modo particolare quando si de¬ 
vono trattare caratteri definiti molto piccoli). 
Può capitare inoltre che, una volta costruita 
una matrice e codificata in esadecimale, la si 
voglia cambiare leggermente (“accendendo" 
o “spegnendo“ anche un singolo pixel). 
Questo programma è stato creato per risolve¬ 


re problemi attinenti alla grafica del Texas in 
TI BASIC. Una volta dato il RUN, appare sul 
video una matrice (8x8) sulla quale vi è un 
cursore bianco lampeggiante, che può essere 
spostato usando i soliti tasti con le frecce; la 
matrice appare inizialmente con tutti i suoi sin¬ 
goli elementi “spenti". Per fare “accendere" 
ogni singolo elemento, basta posizionarsi sopra 
di essi con il cursore, dopodiché va premuto 
“ENTER " (nel caso si volesse “spegnere “ un 
certo elemento della matrice va eseguita la pro¬ 
cedura di cui sopra). 

Una volta che si è disegnata la sagoma desi¬ 
derata sulla matrice basta premere “PROC'D “ 
per avere sia la definizione “VERA" che quel¬ 
la “NEGATA“ (ottenuta, cioè, cambiando i 
punti accesi con quelli spenti). 


I 00 

II 0 
l 20 
1 30 
1 40 
1 50 


REM 

REM 

REM 

REM 

REM 

REM 


**#########** 
* * 


# 

* 


PIXELATOR 


# 

* 


**#########** 
copyright : 


ALE 

SSANDRO&ERNESTO&MASSIMO 

160 REM per TEXAS TI-99/4A 

170 REM DEFINIZIONE DEI CARATTE 


RI : 

180 CALL 
190 CALL 
200 CALL 
001 M ) 

21 0 CALL 
OFF") 

220 CALL 
0 80”) 

230 CALL 
080") 


SCREEN(8) 

CLEAR 

CHAR(128,"0000000000000 
CHAR(129/"0000000000000 
CHAR(130,"0000000000000 
CHAR(131,”8080808080808 


240 CALL 
000 ”) 

250 CALL 
000 ”) 

260 CALL 
000 ”) 

270 CALL 
101 ”) 

280 CALL 
1 FF”) 

290 CALL 
080") 

300 CALL 
310 CALL 
320 CALL 
330 CALL 
340 CALL 
350 CALL 
360 CALL 
370 CALL 


CHAR(132,"8000000000000 

CHAR(133,"FF00000000000 

CHAR(134,”0100000000000 

CHAR(13 5,”0101010101010 

CHAR(136,”0101010101010 

CHAR(137,"FF80808080808 

HCHAR(3,6,128) 

HCHAR(3,7,129,6) 

HCHAR(3,13,130) 

VCHAR ( 4 , 1 3,1 31 , 6) 

HCHAR(10,13,132) 

HCHAR(10,7,133,6) 

HCHAR(10,6,134) 

VCHAR(4,6,135,6) 


I I 










380 CALI HCKA?. 5,3,128) 

390 CALI HCHAR 5,4,129,2) 

400 CALI HCHAP. 5,5,136; 

410 CALI HCHAR'5,7,129,3) 

42 0 CALI HCKA?. 6,10,130) 

430 CALI VCHAR'7,10,131,3) 

440 CALL HCHAR "i C, 1 0,1 37) 

450 CALL VCHAR'11,10,131,2) 

4è0 CALL HCHARd 3,1 0,1 32; 

470 CALL HCHAR'13,4,133,6) 

480 CALL HCHAR (13,3,134; 

490 CALL VCHAR(7,3,135,6) 

500 CALL HCHAR(8,7,65) 

510 CALL HCHAR(3,3,38) 

520 CALL HCHAR(8,9,69) 

530 CALL HCHAR(9,8,77) 

540 CALL HCHAR(1 1 , 5, 83) 

550 CALL HCHAR(11,6,79) 

560 CALL HCHAR(11,7,70) 

570 CALL HCHAR(11,8,34) 

580 CALL HCHAR(5,8,49) 

590 CALL HCHAR(5,9,57) 

600 CALL HCHAR(5,10,56) 

610 CALL HCHAR(5,11,52) 

620 FOR DEL=1 TO 1.5E3 
630 NEXT DEL 

640 REM DEFINIZIONE COLORI 
650 CALL CLEAR 
660 CALL SCREEN(5) 

670 FOR 1=1 TO 12 
680 CALL COLOR(1,2,8) 

690 NEXT I 
700 GOSUB 2170 

710 PRINT " INIZIALIZZAZIONE. 

Il. 

720 OPTION BASE 0 

730 DIM HEX$(15,1),MAT(7,7) 

740 REM CARICO VETTORE DI 
CONVERSIONE BIN-HEX 
750 REM ******************** HEX $ 
(N,0)=VAL. HEX. VERO HEX$(N,1 
)=VAL. HEX. NEGATO 
760 FOR 1=0 TO 15 
770 READ HEX$(1,0),HEX$(1,1) 

780 NEXT I 

790 DATA 0,F,1,E,2,D,3,C,4,B,5,A 
,6,9,7,8,8,7,9,6,A,5,B,4,C,3,D,2 
,E,1,F,0 

800 REM DEFINIZIONE GRAFICA 
810 CALL CHAR(128,"01010101 01O1 0 
1FF") 

820 CALL CHAR(129,"0101010101010 
1 01 ") 

830 CALL CHAR(130,"0000000000000 
OFF") 

840 CALL CHAR(131,"FFFFFFFFFFFFF 
FFF" ) 

850 CALL CHAR(132,"00000000FF000 
000 ") 


860 CALL CHAR(133,"0001 01 01 FF01 0 
1 01 ") 

870 CALL COLOR(13,2,8) 

880 CALL CHAR(136,"0101010101 01 0 
1 FF") 

890 CALL CHAR(137,"0000000000000 
000 ") 

900 CALL CHAR(138,"FFFFFFFFFFFFF 
FFF") 

910 CALL COLOR(14,2,16) 

920 GOSUB 2170 
930 REM DISEGNO TESTO 
94 0 VTAB = 1 
950 HTAB=3 

960 D$ = " - * # PIXELATOR # * - 

H 

970 GOSUB 2210 
980 VTAB = 1 2 

990 D$="S.VERA= 0000000000000000 
= "&CHR$ (137) 

1000 GOSUB 2210 
1 01 0 VTAB = 14 

1020 D$="S.NEG.= FFFFFFFFFFFFFFF 
F= "&CHR$(138) 

1030 GOSUB 2210 
1 040 VTAB=16 

1050 D$="ENTER PER CAMBIARE IL P 
UNTO" 

1060 GOSUB 2210 
1 070 VTAB=18 

1080 D$="PROC’D PER CALCOLARE" 

1090 GOSUB 2210 
1100 VTAB = 20 

1110 D$="ERASE PER CANCELLARE" 

1120 GOSUB 2210 
1 1 30 VTAB = 22 

1140 D$="D,S,X,E PER MUOVERE" 

1150 GOSUB 2210 
1160 VTAB = 24 

1170 D$="QUIT PER FINIRE" 

1180 GOSUB 2210 

1190 CALL HCHAR(3,18,137) 

1 200 CALL HCHAR(10,18,1 38) 

1210 CALL HCHAR(5,16,137,3) 

1 220 CALL HCHARO,16,138,3) 

1230 FOR 1=20 TO 22 
1240 CALL VCHAR(3,1,137,3) 

1 2 50 CALL VCHAR(8,1,1 38,3) 

1260 NEXT I 

1270 CALL VCHAR(3,24,137,3) 

1280 CALL VCHAR(8,24,138,3) 

1290 FOR 1=12 TO 26 STEP 2 
1 300 CALL HCHAR(13,1,1 32) 

1310 CALL HCHAR(13,1 + 1 , 1 33) 

1320 NEXT I 

1330 REM DISEGNO CARATTERE 
1 340 GOSUB 2260 
1 350 CALL KEY(3,K,S) 
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1360 IF S=0 THEN 1480 
1 370 IF K=68 THEN 1560 
1 380 IF K=83 THEN 161 0 
1390 IF K=88 THEN 1660 
1400 IF K=69 THEN 1710 
1410 IF K=13 THEN 1760 
1420 IF K=12 THEN 1870 
1430 IF K=7 THEN 1340 
1440 FOR LIP=0 TO 30 STEP 2 
1450 CALL SOUND(-200,-5,LIP) 

1460 NEXT LIP 

1470 GOTO 1350 

1480 REM CURSORE 

1490 CALL HCHAR(YC+3,XC+6,136) 

1500 FOR D=1 TO 4 

1 51 0 NEXT D 

1520 CALL HCHAR(YC+3,XC+6,128+3* 
MAT(YC,XC)) 

1530 FOR DELAY=1 TO 4 

1 54 0 NEXT DELAY 

1550 GOTO 1350 

1560 REM CURSORE A DESTRA 

1570 XC=XC+1 

1580 IF XC<=7 THEN 1480 

1590 XC=0 

1600 GOTO 1480 

1610 REM CURSORE A SINISTRA 

1620 XC=XC-1 

1630 IF XC>=0 THEN 1480 

1640 XC=7 

1650 GOTO 1480 

1660 REM CURSORE IN BASSO 

1670 YC=YC+1 

1680 IF YC<=7 THEN 1480 

1690 YC=0 

1700 GOTO 1480 

1710 REM CURSORE IN ALTO 

1720 YC=YC-1 

1730 IF YC>=0 THEN 1480 

1740 YC=7 

1750 GOTO 1480 

1760 REM ENTER 

1770 CALL SOUND(100,440,4) 

1780 IF MAT(YC,XC)=0 THEN 1830 
1790 MAT(YC,XC)=0 
1 800 CALL HCHAR(YC+ 3,XC+6,128) 

1 81 0 CALL KEY ( 3, K , S) 

1820 IF SCO THEN 1810 ELSE 1480 

1 830 MAT(YC,XC)=1 

1840 CALL HCHAR(YC+3,XC+6,131) 

1850 CALL KEY (3,K,S) 

1860 IF SCO THEN 1850 ELSE 1480 

1870 REM CALCOLO : STRINGA CHV 
$= S. VERA CHN$ = S. NEG 
1 880 CHV$ = "" 

1890 CHN$="" 

1900 FOR YC=0 TO 7 


1 91 0 VN=0 

1920 FOR XC=0 TO 3 

1930 VN=VN+MAT(YC,XC)*2"(3-XC) 

1940 NEXT XC 

1950 CHV$=CHV$&HEX$(VN,0) 

1 960 CHN$=CHN$&HEX$(VN, 1 ) 

1970 VN=0 

1980 FOR XC=4 TO 7 

1990 VN=VN+MAT(YC,XC)*2"(7-XC) 

2000 NEXT XC 

2010 CHV$ =CHV$&HEX$(VN,0) 

2020 CHN$=CHN$&HEX$(VN,1) 

2030 NEXT YC 
2040 HTAB=11 
2050 VTAB=12 
2060 CALL CHAR(137,CHV$) 

2070 D$=CHV$ 

2080 GOSUB 2210 

2090 VTAB = 14 

2100 CALL CHAR(138,CHN$) 

2110 D$=CHN$ 

2120 GOSUB 2210 
2130 YC=0 
2140 XC=0 
21 50 GOTO 1480 
2160 END 

2170 REM CALL VCLEAR 
2180 CALL VCHAR (1,31,31,96) 

2190 CALL VCHAR(1,3,32,672) 

2200 RETURN 

2210 REM DISPLAY AT 

2220 FOR CH=1 TO LEN(D$) 

2230 CALL HCHAR(VTAB,HTAB-1+CH,A 
SC(SEG$(D$,CH,1))) 

2240 NEXT CH 
2250 RETURN 

2260 REM INIZIALIZZAZIONE 
E STAMPA MATRICE 
2270 FOR YC=0 TO 7 
2280 FOR XC=0 TO 7 
2290 MAT(YC,XC)=0 
2300 NEXT XC 
2310 NEXT YC 
2320 YC=0 
2330 XC=0 
2340 REM STAMPA 

2350 CALL CHAR(137,"000000000000 
0000 ") 

2360 CALL CHAR(138,"FFFFFFFFFFFF 
FFFF") 

2370 CALL HCHAR(12,11,48,16) 

2380 CALL HCHAR(14,11,70,16) 

2390 FOR R=3 TO 10 

2400 CALL HCHAR(R,6,128,8) 

2410 NEXT R 

2420 CALL VCHAR(3,5,129,8) 

2430 CALL HCHAR(2,6,130,8) 

2440 RETURN 
2450 END 
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sinczlsir/’ 



bpectrum 


Numeri in scala 

I6/48K 


Lo scopo nascosto di questo gioco è di verifica- 
re la vostra capacità decisionale. Lo Spectrum 
vi proporrà IO numeri casuali (naturalmente 
uno alla volta) comrpesi tra zero e novanta¬ 
nove. Via via dovrete decidere se il numero in 
quel momento considerato va o no inserito fra 
i gradini di una scala colorata, posta sulla sini¬ 
stra del video. 

I parametri per la decisione riguardano il valo¬ 
re assoluto del numero e I posti ancora liberi 
sulla scala. Infatti più il numero è alto, più de¬ 
ve essere collocato in alto sulla scala. Segue da 
ciò che se nel nono gradino (il più alto) avete 
già posto il numero 85, tutti i numeri superiori 
a tale valore non potranno essere inseriti sulla 
scala. Ogni volta che riputerete un numero to¬ 
glierete un punto dal vostro totale (inizialmen¬ 
te 10); ne aggiungerete uno per ogni numero 
correttamente posizionato. 


1 INK 1 : GO TO 1000 

2 LET a = 5: LET j = l 0 

3 LET h$="corretto": LET max= 
100: LET min=0 

4 DIM b(10): DIM e(10): DIM w 

( 10 ) 

5 FOR f=1 TO 10: LET e(f)=0: 

LET w(f)=100 : NEXT f 

6 BORDER 7: PAPER 7: CLS 

7 PRINT AT 0,a ;" {2SG8 }" 

8 FOR m=l TO 2 

9 FOR v = 0 TO 19 

10 POKE 23609,100 

11 PRINT AT v,a-1 ;"{SG5}" 

12 NEXT v 

13 LET a=l2 

14 LET v=0 

15 NEXT m 

18 LET a=5 

19 LET 1=1: FOR n=l TO 9: 

PRINT AT 1,a-1;CHR$ 142;" 

{6SG3}": LET 1=1+2: NEXT n 

20 INK 2 

21 PRINT AT 2,a ;" {2SG8}" 

22 INK 3 

23 LET w=9: LET q=0: FOR u=l 


Nel caso abbiate impostato un posizionamen¬ 
to scorretto, vi potrete trovare in due situazio¬ 
ni: o avete cercato di inserirlo in un gradino 
già occupato o avete posto un valore fuori or¬ 
dine rispetto agli altri. In entrambi i casi avete 
due possibilità di uscita: il tasto ’R' per ripete¬ 
re l'operazione, se avete sbagliato nel preme¬ 
re un tasto e siete in grado di collocare il nu¬ 
mero correttamente: il tasto'E' se avevate pro¬ 
prio giudicato male e non è possibile inserire 
il numero sulla scala senza contravvenire alle 
regole del gioco: in questo caso perderete due 
punti. 

Se volete conseguire un alto punteggio dovete 
sviluppare una strategia di lungo periodo: cer¬ 
cando di limitare il più possibile il numero di 
rifuti: il massimo punteggio realizzabile è 20, 
ma noi non conosciamo nessuno che ci sia mai 
riuscito!! 



TO 10 : PRINT AT 

q ,a-3 ; w 


": LET q=q+2: LET w=w-l: 


NEXT 

u 


30 

PRINT 

AT 4,a;" 

{2SG8}" 

31 

INK 4 



40 

PRINT 

AT 6,a ; " 

{2SG8}" 

41 

INK 5 



50 

PRINT 

AT 8,a ;" 

{2SG8}" 

51 

INK 6 



60 

PRINT 

AT 1 0, a ; " 

{2SG8}" 

61 

INK 0 



70 

PRINT 

AT 12,a;" 

{2SG8}" 

71 

INK 1 



80 

PRINT 

AT 14, a;" 

{2SG8}" 

81 

INK 2 



90 

PRINT 

AT 16^;" 

{2SG8}" 

91 

INK 3 



1 00 

PRINT 

AT 18,a ;" 

{2SG8}" 

200 

REM 



21 0 

LET spazio=0 


220 

LET colonna=0 


230 

LET contrasto=0 


240 

LET attributo=0 


300 

REM 



301 

LET punti=l0 


305 

FOR x = 

0 TO 9 
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310 LET b(j)=INT (RND*99) 

312 FOR f=l TO 10: IF b(j)=w(f) 
THEN GO TO 310: NEXT f 
315 PRINT AT 0,20;.FLASH 1; 

INK 3 ;"PUNTI="; FLASH 0 ;pu 
nti;" " 

320 PRINT AT 20,0;" 

"; FLASH 1 ; INK 0 ;b(j) 
S / N ?"; INVERSE 0; 
FLASH 0;" 

11 

330 LET b$=INKEY$ 

340 IF b$="n" THEN LET punti=p 
unti-1 : GO TO 600 
350 IF b$="s" THEN GO TO 400 
360 GO TO 330 
400 REM 

405 LET h$="corretto": LET max= 
100 : LET min=0 

410 INK 0: PRINT AT 20,0;"IN QU 

ALE BLOCCO VUOI POSIZIONARE 

IL NUMERO ”;b(j);" ( 0 - 9 

) ? " 

415 INK 2 

420 INPUT a$ 

430 LET d=VAL a$ 

435 GO SUB 3000 
440 PRINT AT 21,0;" 

II 

445 IF h$="" THEN LET h$="r" 
450 IF h$="corretto" THEN 
GO TO 500 

460 IF h$="e" THEN LET punti=p 
unti-2: GO TO 600 
470 IF h$="r" THEN GO TO 400 
500 REM 

51 0 LET t$=STR$ b{j) 

520 LET len=LEN t$ 

530 IF len=2 THEN LET spazio=2 

540 IF len=l THEN LET spazio=3 

550 LET linea = l8-d*2 : LET colon 
na=a+spazio 

560 LET attributo=ATTR (linea,c 
olonna) 

565 LET contrasto=INT ((attribu 
to)/8) 

566 LET sfondo=attributo-contra 
sto* 8 

570 PRINT AT linea,colonna ; 

PAPER sfondo; INK contrast 
o;;b(j) 

580 LET punti=punti+l 
585 LET w (d + 1 ) =b ( j ) 

590 LET e (d + 1 ) =1 
600 NEXT x 

700 REM punteggio finale 


710 INK 0: PAPER 4: BORDER 3: 
CLS : FOR v=l TO 20: 

BEEP .1,v: NEXT v 
720 CLS : FLASH 1: PRINT AT 10, 
6;"Il tuo punteggio e' ";pu 
nti 

730 IF punti>=l2 THEN PRINT 

AT 12,8;"CONGRATULAZIONI !! 
I": FOR g=l TO 20: BEEP .5, 
g: NEXT g 

740 IF punti>=l5 THEN PRINT 

AT 14,6;"SEI STATO BRAVISSI 
MO ! !" : FOR g = l TO 1 0 : 

BEEP .5,g: NEXT g 
750 IF punti=20 THEN PRINT 

AT 16,3;"e anche un po' FOR 
TUNATO il!": FOR g=l TO 5: 
BEEP .5,g: NEXT g 
760 FLASH 0 

770 INK 0: PRINT AT 20,5;"Vuoi 
provare ancora ? ": IF 
INKEY$="n" THEN STOP 
780 PRINT AT 21,5;"Premi < S > 
o < N >": IF INKEY$ = "n" 

THEN STOP 

790 IF INKEY$ = "s" THEN RUN 2 
800 GO TO 770 

1000 PAPER 6: INK 0: BORDER 2: 
CLS : PRINT AT 10,6; 

FLASH 1 ;"NUMERI SULLA SCAL 
A " 

1 001 FOR y=l TO 10 

1002 FOR 0=1 TO 3 

1003 BEEP .1,y 

1004 BEEP .1,0 

1005 NEXT o: NEXT y 

1006 BEEP 3,11 

1007 PAPER 7 

1008 CLS 

1009 INK 2 

1010 PRINT AT 0,7;"*** ISTRUZION 
£ * ★ * 

1020 PRINT 

1030 INK 0: PRINT "Lo Spectrum s 
cegliera' 10 numeriche devi 
cercare di posizionare sec 
ondo il loro valore sui 
gradini di una scala (piu 
• il numero e 1 alto piu' 
deve essere alto il gradino 
) 

1035 PRINT '"Quando appare il nu 
mero, devi decidere, in 
base alla tua strategia 
,se scartarlo e perdereun p 
unto oppure se inserirlo, 
condizionando pero' cosi' 
le scelte future!" 


5 



1036 PRINT '"Parti con 10 punti: 
cerca di nonperderne tropp 
i....Buona Fortuna" 

1040 PRINT 
1045 FLASH 1 

1050 PRINT AT 20,3;"Premi un tas 
to per iniziare" 

2000 PAUSE 0 
2010 FLASH 0 
2100 GO TO 2 
3000 REM 

3010 IF e (d+1 ) =1 THEN BEEP .03, 
5: BEEP .02,10: PRINT AT 20 
,0; FLASH 1;" POSIZIONAM 
ENTO SCORRETTO "; 

FLASH 0;"<E> per uscire, < 
R> per ripetere": INPUT h$: 
RETURN 


4000 REM 

4010 FOR f=d+l TO 9 
4020 IF e(f+1)=1 THEN LET max=w 
(f+1): LET f=9 
4030 NEXT f 

4040 FOR f=d-1 TO 0 STEP -1 
4050 IF e(f+1)=1 THEN LET min=w 
(f+1): LET f=0 
4060 NEXT f 

4100 IF b(j)>max OR b(j)<min 

THEN BEEP .03,5: BEEP .02 
,10: PRINT AT 20,0; FLASH 1 
POSIZIONAMENTO SCORRE 
TTO FLASH 0;"<E> per 

uscire, <R> per ripetere": 
INPUT h$: RETURN 
4500 RETURN 


Cubi spaziali 





6/48K 


Gli abitanti del Pianeta nero sono in pericolo: 
misteriosi cubi spaziali rotolano verso il loro pia¬ 
neta distruggendo tutto ciò che incontrano nel 
loro cammino minacciando cosi la loro stessa 
esistenza. 

Voi, armati di potenti missili interstellari, ten¬ 


1 BORDER 0: PAPER 0: INK 7: 

LET sc=0: GO SUB 300: 

LET p=.l 

2 CLS : LET shs=6: LET p=p/l. 
3: IF p<0.0007 THEN LET p= 
0.0007 

3 PRINT AT 0,0;" QQQQQQQQQQQQQ 

QQQQQQQQQQQQQQQQQQ " 

4 PRINT AT 1,0;CHR$ 137; 

CHR$ 140;CHR$ 134: PLOT 

OVER 1 ;10,162 ; PLOT 
OVER 1 ; 14,162 

5 FOR j=l TO 100 

6 PLOT INK RND* 8 ;RND* 2 55, 
RND*175 

7 NEXT j 

8 FOR q=0 TO 2: LET t=(RND*21 
0)+20 : LET 1=(RND+1 30)+20 : 

FOR h=l TO (RND*4)+3: 


terete di arrestare l'avanzata dei terribili ne¬ 
mici cercando inoltre di evitare i raggi laser che 
tempestano la loro base. 

I comandi sono molto semplici: "1” per muo¬ 
versi verso sinistra “2" per muoversi verso de¬ 
stra “5" per sparare. 


CIRCLE t,l,h: NEXT h: 

NEXT q 

9 FOR r=2 TO 15: BEEP .3,r: 
NEXT r: PLOT 0,0: DRAW 255 
, 0 ,- 1.2 

20 LET i=22593 

21 LET n=l 

40 LET x=22528+703-l5 

45 PAUSE 50 

50 POKE x,56 : POKE x-1,0: 

POKE x+1,0 

51 PRINT INVERSE 1;AT 0,0;"PU 
NTI "; se;AT 0,23 ;"MISS ILI " 
; shs 

55 IF n=703 THEN BEEP 3,23: 
POKE 23609,0: PRINT AT 12, 
0 ;"IL CUBO SPAZIALE TI HA R 
AGGIUNTO"’’"Hai totalizzato 
";sc;" punti.": FOR q=l 
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TO 250: NEXT q: GO TO 900 

60 POKE i+n,56 : POKE i+n-1,0: 

BEEP p,20 

62 IF RND>.9 THEN GO SUB 500 

65 IF IN 63486=255 THEN LET n 
=n+l: POKE 23618,50: POKE 2 

3620,1 

70 IF IN 63486=190 OR IN 63486 
=254 THEN LET x=x-l: LET n 
=n+l: POKE 23618,50: POKE 2 

3620,1 ; 

80 IF IN 63486=189 OR IN 63486 
=253 THEN LET x=x+l: LET n 
=n+l: POKE 23618,50: POKE 2 

3620,1 

90 IF IN 63486=175 OR IN 63486 
=239 THEN LET shs=shs-l: 

POKE 23618,150: POKE 23620 
,1 

100 LET n=n+l: POKE 23618,50: 

POKE 23620,1 

150 IF shs<=0 THEN LET shs=0: 

POKE 23618,100: POKE 23620 
,1 

151 FOR k=0 TO 31 

160 IF ATTR (21,k)=56 THEN 

GO TO 180 
170 NEXT k 

175 POKE 23618,100: POKE 23620, 

1 

180 FOR f=19 TO 0 STEP -1 

190 PRINT AT f,k;"A";AT f+1,k;" 

II 

192 BEEP .02,f 

195 IF ATTR (f-1,k)=56 THEN 

LET sc = sc+shs*l0 : LET shs = 
5: PRINT AT f-1,k;" ";AT f, 
k;" ": PAUSE 70: LET n=l: 

BEEP 2,-10: POKE 23618,50: 

POKE 23620,1 
197 NEXT f 

200 POKE 23618,100: POKE 23620, 

1 

300 FOR g=0 TO 7 
305 READ s 

310 POKE USR "A"+g,s 
32 0 NEXT. g 

330 DATA 24,24,24,24,24,126,90, 

1 29 

335 RESTORE 400 

340 FOR g=0 TO 7: READ s 

350 POKE USR "Q"+g,s: NEXT g 

360 DATA 34,62,28,28,8,8,62,42 

400 DATA 24,62,28,28,8,8,62,42 

410 RETURN 

500 LET k=RND*255: PLOT k,170: 

DRAW 0,-160 

505 FOR m=0 TO 30: NEXT m: 


DRAW OVER 1 ; 0,159 


51 0 

IF ATTR (21 , 

INT ( k/8))=5 6 



THEN GO TO 

800 



51 5 

RETURN 




800 

PRINT AT 12 f 

0; n SEI 

STATO CO 


LPITO!"'’"Hai totalizzato 

ii 


; se;" punti. 

" : FOR 

q = l TO 

2 


50: NEXT q: 

GO TO 

900 


900 

CLS : INPUT 

"VUOI 

GIOCARE 

A 


NCORA(s/n)"; 

a$ 



91 0 

IF a$="s" OR 

a$ = "S 

" THEN 



RUN 




920 

STOP 





Guida per l’input dei 
programmi sul TI 99/4A 

A causa del sistema di codifica utilizzato, 
possono capitare in alcune linee delle im¬ 
provvise "andate a capo" delle quali, natu¬ 
ralmente, non va tenuto conto in fase di digi¬ 
tazione. 

Vi potrà capitare, a volte di trovare nei listati 
di programmi per TI 99/4a alcuni caratteri 
sottolineati. La sottolineatura rappresenta 
una particolare codifica dei tasti di controllo: 
dovrete quindi premere il tasto indicato dal 
carattere insieme al tasto CONTROL. 

Ad esempio, se trovate A dovrete battere 
CONTROL + A; se trovate —, dovrete battere 
CONTROL + SPAZIO, e così via. 


ERRATA C9RRIGE 

Nel programma DEMON STAR versione 
per VIC 20 su Papersoft n. 14, le linee 62 
e 63 del programma I appaiono in fondo al 
listato stesso. Occorre inoltre eliminare l’ul¬ 
tima parte della linea 61: 

:GOSUB7 5 :RG=5: GOTO6 5 

ed aggiungerla in coda alla linea 63, che do¬ 
vrà quindi diventare: 

63 GOSUB70:IFRP<7706THENGOSUB70 : 
POKERP,47:POKERC,6 :POKEVN,241 
:GOSUB7 5 :RG= 5 :GOT06 5 

Il programma I finisce quindi con la linea 75. 
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ISt09l*9ltH1tì 

a barre 



'Istogrammi a barre' è un buon esempio di ciò 
che i programmatori alla prime armi possono 
ottenere in fatto di grafica sul Commodore 64. 
Per realizzare questo programma sono state 
utilizzate diverse tecniche grafiche. 
'Istogrammi a barre' crea attraenti grafici a 
barre con colonne tridimensionali. I grafici so¬ 


no particolarmente interessanti per ciò che ri¬ 
guarda i colori. Sono disponibili sei colonne di 
diverso colore, a cui si può assegnare un valo¬ 
re da 0 a 15 per l'altezza della colonna. Pote¬ 
te fornire al calcolatore il valore assegnato a 
ciascuna colonna, e quindi interpretarne il 
significato. 


100 PRINT"{CLR}":POKE53281,0:POK 
E53280,6 

110 FORI = 1 2 30TO1261 :POKEI,114 : PO 
KE1 + 54272,5:NEXT: REM ALTO 

120 FORI = 1 270TO1 790STEP40 :POKEI, 
107:POKEI + 54 2 72,5:NEXT: REM S 
INISTRA 

130 FORI = 1301TOl821STEP4 0 :POKEI, 
115:POKEI + 542 72,5 :NEXT:REM D 
ESTRA 

140 FORI = l 830TO1861 :POKEI,113:PO 
KEI + 54272,5:NEXT: REM BASSO 

150 FORI = 1351TOl 380 :POKEI,67:POK 
EI+54272,5:NEXT 

160 FORI = 1471TOl 500 :POKE1,67 :POK 
EI+54272,5:NEXT 

170 FORI = 1591TOl 62 0 :POKEI,67 :POK 
EI+54272,5:NEXT 

180 FORI = 1711TOl 74 0 :POKE1,67:POK 
EI+54272,5:NEXT:PRINT:PRINT: 
PRINT 

190 PRINT:PRINTSPC(4)"15":PRINTS 
PC (4)"14":PRINTSPC(4)"1 1":PR 
INTSPC(4)"12" 

200 PRINTSPC(4)"11":PRINTSPC(4)" 

10":PRINTSPC(5)"9":PRINTSPC( 
5) " 8 " 

210 PRINTSPC(5)"7":PRINTSPC(5 )"6 
":PRINTSPC(5)"5":PRINTSPC(5) 

» 4 » 

220 PRINTSPC(5)"3":PRINTSPC(5)"2 
":PRINTSPC(5)"1":PRINTSPC(5) 
" 0 " 

230 PRINTTAB(9)"A"SPC(4)"B"SPC(4 
)"C"SPC(4)"D"SPC(4)"E"SPC(4) 

ii ii 

240 IFZ$="S"THEN310 

250 DATAA,B,C,D,E,F 

260 FORI=lT06:READA$(I):NEXTI 


270 DATA7,6,4,13,8,14 
280 F0RI=1T06:READD(I):NEXTI 
290 DATAI 792,1 797,1 802,1 807,1 81 2 
,1817 

300 F0RI=1T06:READA(I):NEXTI 
310 C=54272:FORJ=lT06 
320 FORK=1971TOl 97 5 : POKER,32:NEX 
TK:PRINT"{HOME}":FORL=l T022: 
PRINT:NEXTL 

330 PRINT"VALORE PER LA COLONNA 
";A$(J);" (0-15)"; 

340 INPUTA$:IFVAL(AS)=0THEN320 
350 AA=VAL(A$):AA=INT(AA+.5):D=D 
(J) : X=A(J) 

360 IFAA<0ORAA>l5THEN320 
370 A=A(J)-(AA* 4 0)+80 :GOSUB4 30 :N 
EXTJ 

380 PRINT"{HOME}": FORI = 1 T022 :PRI 
NT :NEXT:FORI = 1971TOl 98 3 :POKE 
I,32 :NEXT 

390 PRINT"VUOI FARNE UN ALTRO (S 
/N){ 3 SPAZI}" 

400 GETZ$:IFZ$=""THEN400 
410 IFZ$="S"THENl00 
420 END 

430 IFAA=1THEN530 
440 IFAA=0THENRETURN 
450 POKEX,160:POKEX+1,231:POKEX+ 
2,105 

460 POKEX+C,D:POKE(X+l)+C,D:POKE 
(X+2)+C,D:IFAA=2THEN490 
470 FORI=X-4OTOASTEP-40 :POKEI ,16 
0:POKEI+l,231:POKEI+2,160 
480 POKEI+C,D:POKE(1+1)+C,D:POKE 
(1+2)+C,D:NEXTI:GOT0510 
490 POKEA, 247 :POKEA+1 ,2 08 :POKEA+ 
2,105 

500 POKEA+C,D:POKE(A+l)+C,D:POKE 
(A+2)+C,D:GOTO530 
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510 POKEA,247:POKEA+l,208:POKEA+ 
2,224 

520 POKEA+C,D:POKE(A+l)+C,D:POKE 
(A+2)+C,D 

530 POKEA-40,233:POKEA-39,160:PO 


KEA-38,206 

540 POKE(A-40)+C,D:POKE(A-39)+C, 
D:POKE(A-38)+C,D 

550 RETURN 


-- C64 

Sup erSp rite _ ___ 


SuperSprite, un essere dotato di poteri sopran¬ 
naturali, deve volare attraverso quattro bar¬ 
riere di kryptonite dotate solo di stretti passaggi; 
fortunatamente voi potete aiutarlo: muoven¬ 
do accortamente attraverso i tasti di funzione 
le barriere stesse dovete cercare di fargli at¬ 
traversare indenne lo schermo facendo in mo¬ 
do che nel suo imprevedibile volo non incontri 
mai le mortali barriere. 

Avete 20 manches a disposizione e se Super¬ 
Sprite urta una barriera perdete una manche 
e il vostro amico ricomincerà il suo folle volo 
dall'alto dello schermo. 


Il programma memorizza il massimo punteg¬ 
gio realizzato all’interno del LIST stesso e quin¬ 
di, dopo aver battuto il programma, prima di 
salvarlo la prima volta dovete battere 
POKE PEEK(44)x256 + PEEK(43) + 5,1 
per inizializzare il vostro primo massimo pun¬ 
teggio: cioè 0! 

Se battete il record, un messaggio vi ricorda 
di salvare il programma per memorizzare il 
nuovo record assoluto. 

Le istruzioni dettagliate del gioco sono inserite 
nel programma stesso: non dovete fare altro 
che inserirlo e... a voi! 


110 U=RND(-TI) :POKE657, 1 28 
120 REM MEMORIZZAZIONE PREC.SITU 
AZIONE,I NIZIALIZZAZI 

ONE NUOVA,COSTRUZIO 
125 REM NE SPRITE,STAMPAGGIO IST 
RUZIONI 

130 SP=13:V=53248 

140 POKE2041,PEEK(V+24):POKEV+24 

,22 

150 POKE2042,PEEK(V+32):POKEV+32 

,T 

160 POKE2043,PEEK(V+33):POKEV+33 
,7 

170 POKE2044,PEEK(646):POKE646,0 

180 POKE2 04 5,PEEK(650) :POKE650,1 
28 

190 PRINT"{CLR}":GOSUB4000 
200 GOSUB 6000 :PRINT"{CLR}":POKE 
V+24,20 

210 DEFFNSC(U)=INT(U+U*GL/1 0) 

220 FORI = 1TOl 6 :T$ =T$ + "{DES}":NEX 
TI 


230 B$="{ 3 GIU'}"+CHR$(13)+" 

{RVS}": FORI = 0TO3 9 :B$ =B$ + " 
NEXTI 

240 V=53248 :C=55296:S = 1 024:SD=54 
272 

250 HS = PEEK(43)+PEEK(44) *256 + 5 

260 Tl=135:T2=255:T3=230:T4=133 

270 T5=5:T6=9:T7=.992:T8=42:T9=3 
2 

280 BS=PEEK(HS):CH=65508:AR=780 

290 REM INIZIALIZ. CURSORI,STAMP 
A SCHERM O DI GIOCO 

300 E(1)=1269:E(2)=1475:E(3)=168 

2 :E( 4)=1888 

310 POKEV+21,0:GOSUB2000 

320 REM CREAZIONE SPAZIO SULLO S 
CHERMO P ER VISUALIZZ 

AZIONE PUNTEGGIO 

325 REM INIZIALIZ. SID,AZZERAMEN 
TO DEL BU FFER DI TAST 

IERA 

330 FORI = 1 080T01100 :POKE1,32:NEX 
T 
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340 POKE3D-*-4,16:POKESD+1 1,16:POK 
ESD--1 8 , 1 6 

350 POKESD+ 6 , 24 0 :POKESD+1 3, 240 :P 
OKESD+20,240 
360 POKESD+24,15 
370 GETA$:IFA$<>""THEN370 
380 : 

390 REM INIZIO GIOCO(20 MANCHES) 
,PUNTEG GIO PARZIALE 

A ZERO 

400 FORGL=lTO20:PS=0 
410 REM POSIZIONAMENTO SPRITE,ZE 
RO NEL R EGISTRO RILE 

VAMENTO COLLISIONE 
420 POKEV,23:POKEV+1,49 
430 POKEV+23/0:POKEV+3I,0 
440 REM STAMPA PUNTEGGI,INIZIO S 
UONO 

450 PRINT"{HOME}{GIU'}"T$"MANCHE 
:"GL" PUNTEGGIO:"TS 
460 PRINT"{GIU'}"T$"{ 2 DES}MIGL 
IOR RISULTATO:"PEEK(HS)-1 
470 POKESD+4,17:POKESD+11/17:POK 
ESD+18,17 

480 REM ABILITAZIONE SPRITE,VAI 
A 570 SE IL GIOCO E' 

FINITO(FQ SETTATO) 

490 POKEV+21,1 :GOSUB1 000 :IFFQ= 1 T 
HEN550 

500 REM SPRITE FUORI DA SCHERMO 
SE NON C' E' COLLISION 

E,ALTRIMENTI...CRASH! 

510 IFPEEK(V+l)>T3THENFORI=PEEK( 
V+l)T0250:POKEV+1,I:NEXTI:GO 
TO550 

520 POKESD+4,129:POKESD+11,33:PO 
KESD+18,33 

530 FORI=72TO20STEP-2:POKESD+l,I 
:POKESD+ 8 ,I-3 :POKESD+15,1-2: 
NEXTI 

540 REM NO SUONO.SALTA A USCITA 
SE FQ E'1 

550 POKESD+4,16:POKESD+l1,16:POK 
ESD+1 8 , 1 6 

560 POKESD+1,0:POKESD+8,0:POKESD 
+ 15,0 

570 IFFQ=1THENFQ=0:GL=20:NEXT:PO 
KEV+21,0 :GOTO670 

580 REM CALCOLO PUNTEGGIO PARZIA 
LE DALL 1 0 RDINATA SPRI 

TE,MODIFICA,AGGIUNTA 
585 REM AL PUNTEGGIO TOTALE 
590 PS=FNSC(INT((PEEK(V+l)-71)/4 
0 ) ) 

600 TS=TS+INT((PStl.4+PS)/2) 

610 POKEV+21,0 :POKEV+16,0 
630 REM AGGIORNAMENTO PUNTEGGIO 
RECORD, AZZERAMENTO 

SID,ESCI(3000) 


640 IFPEEK(HS)<TS+1THENPOKEHS,TS 
+ 1 

650 FORI=0TO24:POKESD+I,0:NEXTI 
660 FORI=1TO500:NEXTI 
670 GOSUB3000:CLR:GOT021 0 
680 : 

970 REM SOTTOPROGRAMMA-UNA MAN 

CHE DEL GIOCO 

980 : 

990 REM DECIDI QUALE REGISTRO PO 
SIZ.SPRIT E CAMBIARE(W 

) E DI QUANTO(U) 

1 000 U2=RND(1) :W=V+INT(U2*2) :U=G 
L/7+2 

1010 REM ESPANDI SPRITE IN DIR.Y 
SE E' VERA L'ESP 

RESSIONE 

1 020 IFU2>T7ANDPEEK(V+l)<T1THENP 
OKEV+23,1 

1030 REM SETTA L'OTTAVO BIT DELL. 
A POSI ZIO NE X DELLO" 

SPRITE SE NECESSARIO 
1040 IFPEEK(W)+U>T2THENPOKEV+l6, 

1 :POKEV,PEEK(V)+U-T2: GOTO!0 
70 

1050 REM AGGIORNA SPRITE.ESCI SE 
COLLISI ONE O BARR 

IERE SUPERATE 
1060 POKEW,PEEK(W)+U 
1070 IF(PEEK(V+31)ANDl )ORPEEK(V+ 

1)>T3THENRETURN 

1080 REM CAMBIO FREQUENZE SECOND 
O POSIZ.Y DELLO SPRI 

TE E NUMERO CASUALE U2 
1090 U=232-PEEK(V+l):POKESD+1,U* 
2/3:POKESD+8,U+3*U2:POKESD+ 

15,U+3 

1100 REM SCANDISCI TASTIERA:ESCI 
SE *;PAUSA SE' ';VAI A 100 
0 SE NON E'TASTO FUNZ 
1110 SYSCH:U=PEEK(AR):IFU=T8THEN 
TS=0:FQ=1:RETURN 
: REM USCITA 

1120 IFU=T9THENGOSUB8000 
1130 IFUCT4THEN1000:REMINPUT<Fl 
1140 REM MOVIMENTO LINEA:DX SE N 
ON SCIFTATO (11 20) -.SIN SE SC 
IFTATO(1140) 

1150 U=U-132 :IFU<T5THENl 180:REMI 
NPUTFl-F4 

1160 IFU<T6THENl200:REM INPUT F5 
-F8 

1170 GOTOl000:REM INPUT>F8 
1180 E(U)=E(U)+(E(U)=1100+200*U- 
(U > 2)) :POKEE(U) ,22 3:POKEE(U 
)-l,160 

1190 POKEE(U)+4+(U>2),32:POKEE(U 
)+5+(U>2),95:E(U)=E(U)+1:GO 
TOl000 
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1200 U=U-4:E(U)=E(U)-(E(U)=1064+ 
200*(U)):POKEE(U)+3+(U>2),9 
5 

1210 POKEEiU)+4+(U>2),160:POKEE( 
U) -1 ,32 :POKEE(U)- 2,223:E(U) 
=E(U)- 1 :GOTOl000 

1970 REM SOTTOPROGRAMMA-STAMPA 

SCHERMO 

1 980 : 

1990 REM I COLORI DELLE LINEE AL 
LA RIGA 2000 :L'ULT 

IMO PER LE SCRITTE 
2000 PRINT"{CLR}{ 2 GIU'}{PUR}"B 
$"{GRN}"B$"[<7>)"B$"[<3>]"B 
$"{HOME}{BLK}" 

2010 FORI = lT04:POKEE(I)— 1 ,223:PO 
KEE(I)+3-(I<3),95:FORJ=E(I) 
TOE(I)+2-(I< 3) 

2020 POKEJ,32:NEXTJ,I:RETURN 
2030 : 

2980 REM SOTTOPROGRAMMA--USCITA 
O RIENTRO 
2990 : 

3000 PRINT"{CLR}{GIU'} "T$ " 

{ 3 SPAZ1}PUNTEGGIO:"TS 
3010 PRINT"{GIU 1 }"T$"{ 6 SIN} MI 
GLIOR RISULTATO:";PEEK(HS)- 
1 

3020 PRINT"{ 3 GIU'}GIOCHI ANCOR 
A (S/N)? 

3030 GETA$:IFA$=""THEN3030 
3040 IFA$ = "S"THENRETURN 
3050 IFA$ = "N"THEN3070 
3060 GOTO3030 

3070 IFNOT(BS<PEEK(HS))THEN3100 
3080 PRINT:PRINT"CONGRATULAZIONI 
, HAI BATTUTO IL RECORD. 
3090 PRINT:PRINT"RICORDA DI SALV 
ARE IL PROGRAMMA. 

3100 PRINT:PRINT"ARRIVEDERCI A P 
RESTO! 

3110 PRINT"{ 4 GIU'}" 

3120 REM RITORNO CONDIZIONI INIZ 
IALI 

3130 POKEV+24,PEEK(2041):POKEV+3 
2,PEEK(2042):POKEV+33,PEEK( 
2043) 

3140 POKE646,PEEK(2044):POKE650, 
PEEK(2045):POKE657,0 
3150 END 
31 60 : 

3980 REM SOTTOPROGRAMMA--COSTRUZ 
IONE SPRITE A PAG.13 (832-8 
95 NEL BUFFER NASTRO) 

3990 : 

4000 FORI = 0TO41 :READU:POKE(64*SP 
)+ 1 ,U :NEXT 

4010 FORI = 42T063:POKE(64*SP)+1,0 


:NEXT 

4020 POKE2 04 0,SP:POKEV+2 3,1:POKE 
V+29,1 :POKEV+39,0:RETURN 

4030 RETURN 

4040 DATA 248,0,0,62,0,0,7,128,0 
,1,224 

4050 DATA 0,0,120,0,0,62,0,0,15, 
1 1 2 

4060 DATA 0,7,248,0,7,248,0,6,12 

0,0 

4070 DATA 6,12,0,6,6,0,3,6,0,1,1 

9 Q 

4080 : 

4980 REM FRASI DATA PER PAGINA I 
STRUZIONI 

4990 : 

5000 DATA"DEVI MANOVRARE LE LINE 
E ORIZZONTALI 

5010 DATA"IN MODO CHE SUPERSPRIT 
E POSSA VOLARE 

5020 DATA"SENZA DANNO ATTRAVERSO 
I PASSAGGI. 

5030 DATA"LE QUATTRO LINEE SONO 
CONTROLLATE DAI 

5040 DATA"TASTI DI FUNZIONE SULL 
A TUA DESTRA. 

5060 DATA"PREMENDO UNO DI ESSI F 
ARAI SCORRERE 

5070 DATA"LA CORRISPONDENTE LINE 
A VERSO DESTRA. 

5080 DATA"LO STESSO TASTO SHIFTA 
TO LA^SPOSTERÀ' 

5090 DATA"VERSO SINISTRA. 

{ 10 SPAZI}PREMI SPAZIO 

5100 DATA"PER ARRESTARE IL GIOCO 
, '*' PER FINIRE. 

5110 DATA" 

5120 DATA"UNA PARTITA CONSISTE D 
I 20 MANCHES. 

5130 DATA" 1^ PUNTI SI CONQUISTANO 
ATTRAVERSANDO LE 

5135 DATA"LINEE SENZA TOCCARLE. 

! - 



21 






51 40 
51 5C 
51 60 
51 70 

51 30 

5200 

521 0 

521 5 
5220 

52 30 
5980 

5990 

6000 


DATA"I PUNTEGGI AUMENTANO C 

ON IL*"NUMERO DI 

DATA"LINEE ATTRAVERSATE SEN 

ZA DANNO E CON IL 

DATA"NUMERO DI MANCHE FATTE 

. COL PROCEDERE 

DATA"DEL GIOCO AUMENTA SIA 

LA VELOCITA' CHE 

DATA"L'IRREGOLARITÀ' DEL VO 

LO DI SUPERSPRITE 

DATA" I_L MASSIMO PUNTEGGIO P 

OSSIBTLE E' 253. 

DATA"{ 11 SPAZ1}BUONA FORTU 
NA! 

DATA" 


DATA"{ 4 SPAZI} PREMI {SPAZI} 
SPAZIO{SPAZI}PER{SPAZI}COM 
INCIARE. 


REM S OTTOP ROGRAMMA-S TAMP A I 
STRUZIONI 


POKEV,23:POK£V+l,49:POKEV+2 

1,1 


6010 GOSUB700 0 :GOSUB7 0 00 
6020 FORW=1T02 3 :READU$:PRINTUS:G 
OSUB7000:NEXTW 

6030 POKEV+21 ,0 :POKEV,23 :POKEV+1 
,49:POKEV+ 2 3,0:POKEV+ 29,0 
6040 GETA$ : IFA$OCHR$ ( 32) THEN604 
0 

6050 RETURN 
6060 : 

6980 REM SOT^OPROGRAMMA--MOVIMEN 
TO SPRITE DURANTE LE 

ISTRUZIONI 

6990 : 

7000 FORI=1T08:POKEV,PEEK(V)+1 
7010 POKEV+1 ,PEEK(V+1)+1 :NEXT 
7020 POKEV,PEEK(V)+1:RETURN 
7030 : 

7980 REM SOTTOPROGRAMMA--ATTESA 
7990 : 

8000 POKESD+2 4,0 

8010 SYSCH : IF PEEK ( AR) O32THEN80 
1 0 

8020 POKESD+24,15 
3030 RETURN 


Space Patrol 





il 


joystick 


La tuo missione è di onnientore i dischi volanti 
provenienti dal pianeta Vencenxlux, prima che 



riescano ad atterrare in più di cinque sulla 
terra. 

Con il tuo Joystick puoi muoverti in ogni dire¬ 
zione e sparare. 

Stai molto attento perché la tua riserva di 
proiettili, che viene visualizzata sulla destra del¬ 
lo schermo, è limitata. 

Quando i proiettili saranno terminati, dovrai at¬ 
terrare su una base per ottenenere una nuo¬ 
va scorta di munizioni. 

Ogni 500 punti ti verrà regalata una vita. 

È possibile scegliere tra cinque difficoltà, ognuna 
delle quali prevede velocità e punteggio diver¬ 
so per ogni disco volante colpito. 

N.8. Il nome del secondo programma deve es¬ 
sere "S P". 

Aspettiamo 
i tuoi lavori 
migliori 
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programma I 

5 PRINT"{CLR}{ 7 GIU’} 

{ 2 SPAZI}{RVS}** SPACE PATROL 
**{ 8 GIU'}" 

11 PRINT" ATTENDI UN ATTIMO..." 
15 POKE52,27:POKE5 6,2 7 
20 FORI=716 8T07679 :POKEI , PEEK(1 + 
25600):NEXT 
30 READX:IFX<0THEN45 
35 FORI=XTOX+7:READJ:POKEI,J:NEX 
T: GOTO3 0 

45 S$="LO"+CHR$(34)+"SP"+CHR$(34 
)+",1 :"+CHR$( 1 31 ) 

50 FORI=1TOLEN(S$):POKE630+1,ASC 
(MID$(S$,I)):NEXT:POKEI98,I:E 
ND 

800 PRINT"{HOME}":NEW:CLR:END 
1 000 DATA7 384,0,0,0,63,95,255,0, 
0 

1001 DATA7392,2,6,14,254,254,255 
,240,60 

1 002 DATA7400,64,96,112,127,127, 
255,15,60 

1 003 DATA7408,0,0,0,252,250,255, 
0,0 

1 004 DATA7416,0,0,60,126,171 ,126 
,60,0 

1 005 DATA7432,0,16,84,16,254,16, 
84,16 

1 006 DATA7440,0,146,16,56,254,56 
,16,146 

1 007 DATA7448,64,96,1 12,95,64,25 
5,19,62 

1008 DATA7456,0,0,0,248,12,255,0 
,0 

1009 DATA7464,0,0,0,31,48,255,0, 
0 

1010 DATA7 4 72,2,6,14,250,2,255,2 
00,124 

1011 DATA7480,0,0,0,0,0,126,0,0 

1012 DATA7488,127,204,200,126,6, 

14.28.255 

1013 DATA7496,254,51,19,126,96,1 

12.56.255 

1014 DATA7504,0,0,2,3,15,31,63,2 
55 

1015 DATA7512,1,3,7,15,159,255,2 

55.255 

1016 DATA7520,0,128,192,192,224, 

227.247.255 

1017 DATA7528,0,4,14,63,255,255, 

255.255 

1018 DATA7536,4,6,15,191,255,255 
,255,255 

1019 DATA7544,0,48,242,255,255,2 

55.255.255 

1 02 0 DATA76 3 2,0,0,0,129,195,231, 

255.255 


1021 DATA7640,32,112,248,252,254 
,255,255,255 

1 022 DATA76 48,0,0,0,32,1 1 2,248,2 
52,255 

1023 DATA7168,255,255,255,255,25 
5 255 255 255 

1 024 DATA7656,0,4,14,14,14,4,14, 
10 

1 025 DATA7664,0,0,0,0,0,0,0,0 
1 026 DATA691 3,166,47,1 34,95,166, 
48,134,96 

1027 DATA6921,160,0,177,95,201,2 
04,240,12 

1 028 DATA6929,24,101 ,95,1 33,95,1 
44,2,230 

1 029 DATA6937,96,76,9,27,96,0,0, 
0 

1 030 DATA6 94 5,0,0,0,0,32,148,224 
, 1 65 

1031 DATA6 953,142,56,229,1 1 ,176, 

252.101.11 

1032 DATA6961,133,11,96,0,24,32, 
148,209 

1033 DATA6969,160,0,177,88,208,5 
8,162,22 

1 034 DATA6977,1 34,93,1 62,30,1 34, 
94,166,142 

1035 DATA6985,16,16,162,9,134,11 
,32,37 

1036 DATA6993,27,169,12,24,101,1 

1.133.11 

1037 DATA7001,144,7,162,10,134,1 
1,32,37 

1 03 8 DATA7009,2 7,1 65,93,24,1 01 ,1 
1 , 133 , 9 * 

1 039 DATA7017,160,1 ,145,88,144,2 
,230,94 

1 040 DATA7025,165,94,136,145,88, 
76,163,27 

1041 DATA7 033,177,88,133,94,200, 
177,88,133 

1 04 2 DATA7041 , 93,1 60,22,1 77,93,2 
01,32,208 

1043 DATA7049,41,169,32,160,0,14 
5,93,165 

1 04 4 DATATO57,93,24,105,22,1 33,9 

3.200.145 

1 045 DATA7065,88,1 36,144,6,230,9 

4.165.94 

1 04 6 DATA7Ò73,1 45,88,1 69,31,145, 

93.165.94 

1047 DATA7081,24,105,120,133,94, 
169/7,145 

1 04 8 DATA7089,93,96,48,253,1 69,3 
2 , 160*0 

1 04 9 DATA70 97,1 4 5,93,1 69,0,1 45,8 

8.200.145 
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1 050 DATA 7105,88,141 ,0,27,76,1 7.8 
,27,0 

1051 DATA71 1 3,0,32,1,27,160,1,1 7 
7,95 

1 052 DATA71 21 ,201 ,1 28, 240,6,32,9 
,27,76 

1053 DATA7129,205,27,173,0,27,13 
3,11,32 

1 054 DATA71 37,37,27,230,11,165,1 


programma 2 

30 C=30720:V=36878:S1=36875:S2=S 
1+1 :S3=S1 +2:HS = 7664:HI = PEEK (H 
S)*2 56+PEEK(HS+1) 

40 DD=371 54:DIML%(13):POKE36879, 
9 :GOSUB700:P0KE36869,255 
50 PRINT"{CLR}{WHT}{RVS}SC=0 
{ 6 SPAZX}HI = 0{ 5 SPAZI}# 

{HOME} " 

55 P=7976:D=0:DI=1:BA=20:OP=5:SC 
= 0 :BO=0:G=7723:C$ = "{HOME} 

{ 21 GIU'}" 

60 FORI = 3841 0TO38850STEP22:POKEI 
,1 :POKEI + 1,1 :NEXT:FORI = 3 84 4 3T 
038861STEP22:POKEI,5:NEXT 
65 GOSUB380:GOSUB850:PRINTC$;A$; 
"{CYN}@@@@@@@@@@@@@@@@@@@@0 
{HOME}":POKEP,27 :POKEP+1 ,28 
70 POKE38905,3:POKE8185,0:GOSUB8 
50:FORT=lT06:GOSUB900:NEXT 

75 FORH=1T05-U 

76 POKE7420,204:POKE37139,0:POKE 
DD,127 :J = PEEK(371 52)ANDl28:J3 
= -(J=. ) :POKEDD,255 

90 J=PEEK(371 37) :Jl=-((JAND 8 )=.) 

:J2=-((JAND16)=.):J0=-((JAND4 
)=.):FR=-((JAND32)=.) 

95 IFFRANDDI=1THEN400 

99 POKE7420,179 

100 IFJlTHEN265 
105 IFJ2THEN220 
110 IFJ3THEN200 
115 IFJ0THEN255 

120 NEXT:GOSUB900:G0T075 
200 D=1 :POKEP,32 :POKEP+1,32 :GOSU 
B300:A$=MID$(A$,2,26)+MID$(A 
$,1,1):GOT02 50 

220 D=0:POKEP,32 :POKEP+1,32 :GOSU 
B300:A$=MID$(A$,27,1)+MID$(A 
$,1,26) 

250 PRINTC$;A$"{HOME}":GOTOl20 
255 POKEP,32 :POKEP+1,32:P=P-22:I 
FP<7712THENP=P+22 
260 GOSUB300:GOTOl20 
265 POKEP,32 :POKEP+1 ,32:P=P+22:I 
FP>8130THENP=P-22 
275 GOSUB300 


1,141 ,0 

1055 DATA7145,27,32,53,27,173,0, 
27,240 

1056 DATA7153,7,133,11,230,11,32 
,53,27 

1057 DATA7161,96,0,0,0,0,0,255,2 
55 

1058 DATA-1 


280 IF(P=81 30)ANDPEEK(P+22)=4 0AN 
DPEEK(P+2 3)=41ANDDI=0THENGOS 
UB350:DI=1:GOSUB300 
285 GOTO250 
300 IFD=.THEN315 

305 IFDI=.THENPOKEP,35:POKEP+1,3 
6 : RETURN 

310 POKEP,29:POKEP+1,30:RETURN 
315 IFDI=.THENPOKEP,37:POKEP+1 ,3 
8 :RETURN 

320 POKEP,27 :POKEP+1,28 : RETURN 
350 POKEV,15:GOSUB855 :FORT=l50TO 
250:POKES1,T:POKES2,T:NEXT 
370 BA=BA-6+U:IFBA< 5THENBA=5 

380 B=BA:G=81 63-BA*22 :FORT=GT081 
41 STEP22:POKET,61:NEXT 
385 POKEV,0 :POKES1,0 :POKES2,0:RE 
TURN 

400 POKEV,15 :POKES2,245:IFD=•THE 
N430 

410 F=P+2 

415 IFF=P+11THEN493 

420 IFPEEK(F)=31THEN460 
42 5 POKEF+C,1 :POKEF,39 :FORT=lTOl 
:NEXT:POKEF,32:F=F+1:GOT0415 

430 F=P-1 

435 IFF=P-11THEN493 
440 IFPEEK(F)=31THEN460 

44 5 POKEF+C,1 :POKEF,39:FORT=lTOl 
:NEXT:POKEF,32:F=F-1:G0T0435 

460 X=0:FORT=0TOl3:IFL%(T)=FTHEN 
X=T:L%(T)=0 

470 NEXT:POKES3,200 :FORT=l5TOOST 
EP-5:POKEF+C,7:POKEF,33:POKE 
V,T:POKEF+C,2 :POKEF,34 :NEXT 
480 POKES3,0:POKEF,32:SC=SC+2+U* 
4 :BO=BO+2+U*4 

485 IFBO>500THEN:GOSUB500:OP=OP+ 
1 :BO=BO-500:GOSUB855 
490 PRINT"{HOME}{WHT}{RVS}"TAB(3 
) SC 

493 B=B-1 :IFB=0THENDI = 0:GOSUB300 
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498 POKEG,32 :G=G+22:POKEV,0 :POKE 
S2,0 :GOTOl20 

500 POKEV,15:FORT=lT028:PRINT" 
{HOME}{GIU'}{WHT}";MID$(" 

{ 18 SPAZI}[£''BONUS ",T,22) 
:POKES2,230 

510 FORY=lT085:NEXTY,T:POKEV,0 :P 
OKES2,0:RETURN 

700 POKE36869,240 :PRINT"{CLR} 

{ 5 GIU'}{ 2 DES}{RVS}{YEL}* 
* SPACE PATROL **" 

710 PRINT"{GRN}{ 6 GIU'}{DES}FAC 
ILE{ 5 DES}DIFFICILE " 

715 PRINT"{GIU 1 }{ 4 DES}{RVS} 
{WHT}1{OFF}..{RVS}2{OFF}.. 
{RVS}3{OFF}..{RVS}4{OFF}.. 
{RVS}5{OFF}" 

720 GETW$:IFW$=""THEN720 

725 U=VAL(W$):IFU<1ORU>5THEN720 

730 Q%=14-2*U:RETURN 

850 PRINT"{HOME}{WHT}{RVS}"TAB(1 
3) HI 

855 A$ = "{CYN}/:;<{WHT}() {CYN}* + , 
{WHT}(){CYN}*+,-." 

860 PRINT"{HOME}{WHT}{RVS}"TAB(2 
0)OP:RETURN 


900 POKE6912,Q%:SYS71 14:IFPEEK(6 
912)=0THEN950 
910 RETURN 

950 OP=OP-1:GOSUB860 

960 POKEV,15:FORT=1TOl 5 :POKES2,2 
50 :FORY=1T05:NEXT:POKES2,0 :N 
EXT:POKEV,0 
985 IFOPOOTHENRETURN 
990 POKEV,15:FORT=8TOl 5 :POKE3687 
9,25:FORY=200TO220+T*2:POKES 
2,Y:NEXT:POKE36879,9 :NEXT 
1000 POKES0,0:POKES2,0:PRINT" 
{HOME}{ 5 GIU'}"TAB(4)" 

{ WHT} *-*-*-*-*-*-•-*-•-*-*-*-*-" 

1 00 5 PRINTTAB ( 4) " - GAME OVER : 
PRINTTAB (,4) 

1006 PRINT"{ 3 GIU'}"TAB(4)" 
{WHT}PREMI UN TASTO" 

1010 IFSOHITHENHI = SC : GOSUB8 50 
1020 POKE7420,204:FORY=1TO80:NEX 
T:POKE7420,51:FORY=1TO80:NE 
XT 

1 025 GETW$:IFW$ = ""THENi 02 0 
1040 POKEHS,INT(HI/256):POKEHS+l 
,(HI/256-INT(HI/256))*256 
1050 RUN 
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C^C 

}_ 

— VIC Organetto - 




Dopo un 'esplosiva introduzione, potrai suonare 
anche tu con un magnifico organetto. 
Durante l'esecuzione di qualsiasi motivo mu¬ 
sicale, potrai usufruire di varie opzioni: 
-premendo “FI " "F3" "F5" “F7“ puoi sele¬ 
zionare la voce con cui suonare: 

- premendo “F2“ “F4“ "F6" “F8“ puoi so¬ 
vrapporre più di una voce. 

Per finire premi 

N. 8. £ 'indispensabile' mettere nel nome del 

programma I 

10 PRINT"{CLR}":A=36874:B=36875: 
C=36876:D = 36877:E=36878:Q= 15: 
W=0 

12 PRINT"{ 9 DES}{RVS} {DES} 
{OFF}" 

13 PRINT"{ 9 DES}{RVS} {DES} 
{OFF}" 


secondo programma (prima delle parole) un 
simbolo di colore che non sia “CYN" e 
“WHT". 

Per ciò il comando ' 'SAVE ’ ' dovrà avere la se¬ 
guente forma: 

“S AVE” (comando colore) (nome 
programma). 

Il nome del secondo programma deve essere 
“V.O.". 

Buon divertimento!!!! 


14 PRINT"{ 9 DES}{RVS} {DES} 
{OFF}" 

15 PRINT"{ 9 DES}{RVS} {DES} 

{ 2 SPAZI}{OFF}" 

20 PRINT"{HOME}{ 7 GIU'}{RED} 

{ 4 DES}{RVS} { 3 DES} 

{ 2 DES} {2 DES}{ 3 SPAZI} 
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{OFF} " 

21 PRINT"{ 4 DES}{RED}{RVS} 

{ 3 DES} { 2 DES} { 2 DES} 
{OFF} " 

22 PRINT"{ 4 DES}{RED}{RVS} 

[<*>]{DES}£ { 2 DES} 

{ 2 DES} {OFF}" 

23 PRINT"{ 4 DES}{RED} [<*>] {RVS} 
{ 3 SPAZI}{OFF}£{RVS} 

{ 2 DES} { 2 DES} {OFF}" 

24 PRINT"{ 5 DES}{RED}[<*>]{RVS} 

{OFF}£{RVS}{ 3 DES} 

{ 2 DES}{ 3 SPAZI}{OFF}" 

25 PRINT"{GIU 1 }{GRN}{ 10 DES}&": 
PRINT"{ 2 GIU'}{BLK}{ 7 DES} 
ANTICOLI":PRINT"{GIU'} 

{ 5 DES}MASSIMILIANO" 

26 PRINT"{PUR}{ 2 GIU'H 5 DES} 
PRESENTANO{DES}:" 

30 FORT=lT0255 :POKE36879,T:NEXTT 

31 FORM=lT02000:NEXT:POKE36879,5 

9 

32 PRINT"{CLR}{ 4 GIU'}{RED} 

{ 4 DES}{RVS} { 3 DES} 

{ 2 DES} { 2 DES}{ 3 SPAZI} 
{OFF}" 

33 PRINT"{ 4 DES}{RED}{RVS} 

{ 3 DES} { 2 DES} { 2 DES} 
{OFF}" 

34 PRINT"{ 4 DES}{RED}{RVS} 

[<*>]{DES}£ { 2 DES} 

{ 2 DES} {OFF}" 

35 PRINT"{ 4 DES}{RED}[<*>]{RVS} 
{ 3 SPAZI}{OFF}£{RVS} 

{ 2 DES} { 2 DES} {OFF}" 

36 PRINT"{ 5 DES}{RED} [<*>] {RVS} 

{OFF}£{RVS}{ 3 DES} 

{ 2 DESÌ{ 3 SPAZI}{OFF}" 

50 PRINT"{ 5 GIU'} [<A>][<S>] 
[<A>] ;<S>] [<A>] [<S>] [<A>] 

[<S>] [<M>]M[<G>} [<A>]* PO PO 
[ < A > J [ < S > ] ^ • 

60 PRINT" { 2 -}[<Q>][<X>]-[<S>] 
[<Q>][<W>][<M>] [<G>][<Q>] 

{ 2 SPAZI}[<M>][<G>] [<M>] 

[<G>]{ 2 -}"; 

70 PRINT" [<Z>][<X>]-M[<Z>][<X>] 


programma 2 

I GOSUBl0000 

10 POKE36878,F:K=0 

II IFF=0THEN15 
12 F=F-1.5 

15 POKES,R 
20 GETA$ 

25 IFA$="Q"THENR=135:K=1 


{ 2 -}[<M>] [<G>}[<Z>]* [<M>] 

[<G>T t<M>][<G>][<Z>][<X>] 

305 POKEE,Q:FORL=lT05:POKEB,200 : 

FORM=1TO500:NEXTM:POKEB r W 
310 POKEC,200:FORM=lTO500:NEXTM: 

POKEC,W:NEXTL:POKEE,W 
320 POKEE,Q:FORL=lT05:FORM=l80TO 
235STEP2:POKEC,M:FORN=lTOl0 
330 NEXTN,M:POKEC,W:FORM=l TOl 00: 
NEXTM,L:POKEE,W 

340 POKED, 220 :FORL=l5TO0STEP- 1 :P 
OKEE,L:FORM=1TO300:NEXTM,L 
350 POKED,W:POKEE,W 
360 POKEE,Q:FORL=lTOl00:POKEC,IN 
T(RND(1 )*1 28)+1 28:FORM=l TOl 0 


370 NEXTM,L:POKEC,W:POKEE,W 
380 POKEE,10:FORL=230TOl28STEP-1 
:POKEC,L:FORM=lTO20:NEXTM,L 
400 POKEC,W:POKED,200 :FORL=15TOO 
STEP-.05:POKEE,L:NEXTL:POKED 
,W 

410 POKEE,Q:FORL=1TO30:FORM=250T 
O240STEP-1 :POKEC,M:NEXTM 
420 FbRM=240T0250:POKEC,M:NEXTM: 

POKEC,W:NEXTL:POKEE,W 
430 POKEE,Q:FORL=l30TO254:POKEC, 
L:FORM=1T04 0 :NEXTM,L 
440 POKEE,W:POKEC,W 
450 POKEE,Q:F0RL=1T020:FORM=220- 
LTOl60-LSTEP-4:POKEC,M 
460 NEXTM:FORM=l60-LT0220-LSTEP4 
:POKEC,M:NEXTM,L 
470 POKEE,W:POKEC,W 
480 POKEE,15:FORL=1TOl5 :FORM=200 
TO220+L*2:POKE36876,M:NEXTM, 
L 

490 POKEE,W:POKEC,W 
500 PRINT"{ 2 GIU’}{RED} 

{ 4 SPAZI}PREMI UN TASTO" 

600 GETA$:IFA$ = ""THEN600 
650 PRINT"{CLR}" 

700 S$ = "LO"+CHR$(34)+"V.O."+CHR$ 
(34),1 :"+CHR$(131) 

750 FORI=1TOLEN(S$):POKE630+1,AS 
C(MID$(S$,I)):NEXT:POKEl98,1 
:END 


30 IFA$ = "2"THENR=143 :K=1 
35 IFA$ = "W"THENR=1 47 :K=1 
40 IFA$="3"THENR=151:K=1 

45 IFA$="E"THENR=159:K=1 

46 IFA$-"R"THENR=163 :K=1 

47 IFA$ = "5"THENR=167 :K=1 

48 IFA$ = "T"THENR=175 :K=1 
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49 IFA$ = "6"THENR=179 :K=1 

50 IFA$="Y"THENR=183 :K=1 

51 IFA$ = "7"THENR=187 :K= 1 

52 IFA$="U"THENR=191:K=1 

53 IFA$ = "I"THENR=195 :K=1 

54 IFA$ = " Z"THENR=195 :K=1 

55 IFA$ = "S"THENR=199 :K=1 

56 IFA$="X"THENR=201:K=1 

57 IFA$="D"THENR=203:K=1 

58 IFA$ = "C"THENR= 2 07 :K=1 

59 IFA$ = "V"THENR=2 09 :K=1 

60 IFA$="G"THENR=212:K=1 

61 IFA$="B"THENR=215:K=1 

62 IFA$="H"THENR=217:K=1 

63 IFA$="N"THENR=219:K=1 

64 IFA$="J"THENR=221:K=1 

65 IFA$="M"THENR=223:K=1 

66 IFA$ = " , "THENR=22 5 :K=1 

79 IFA$="-"THENPOKE36878,0:END 

90 IFA$ = " {Fi }"THENK=1 :GOSUB8000 

91 IFA$="{F2}"THENK=1:GOSUB6900 

92 IFA$="{F4}"THENK=1:GOSUB7000 

93 IFA$ = " { F6 }"THENK=1 :GOSUB7100 

94 IFA$="{F8}"THENK=1:GOSUB7200 

95 IFA$="{F3}"THENK=1:GOSUB8100 

96 IFA$ ="{F5}"THENK=1 :GOSUB8200 

99 IFA$="{F7}"THENK=1:GOSUB8300 

100 IFA$<>""ANDK=1THENF=1 5 
200 GOTOIO 

6900 S=36874:RETURN 
7000 S=36875 : RETURN 
7100 S=36876 : RETURN 
7200 S=36877:RETURN 

8000 POKES,0:FORR=lTOl00:S=36874 
: RETURN 

8100 POKES,0 :FORR=lTOl00:S = 36875 
: RETURN 

8200 POKES,0 :FORR=1TOl00:S = 36876 
: RETURN 

8300 POKES,0 :FORR=lTOl00:S = 36877 
: RETURN 

1 0000 PRINT"{CLR}:POKE36879,26 

10010 FORZ = l T044:PRINT"{BLK} 
{RVS}{ 4 SPAZI}:NEXT 
10020 PRINT"{HOME}{ 4 GIU'} 

{ 4 DESHRVS} {BLK}VIC. ORG 
ANETTO"; 

10040 PRINT"{HOME}{ 8 GIU'}{BLU} 
[< 22 X>] 

10050 PRINT"{BLK}{OFF} 

{ 2 SPAZI}{RVS}{ 3 SPAZI} 


[<G>]{ 2 SPAZI}{OFF} 

{ 3 SPAZI}{RVS}{ 3 SPAZI} 
[<G>]{ 2 SPAZI}[<G>] 

{ 2 SPAZI}{OFF} {RVS} 

{OFF}{ 2 SPAZI}{RVS} 2 
[<G>]3 {OFF}{ 3 SPAZI} 
{RVS} 5 [<G>]6 [<G>]7 
{OFF} {RVS} 

10060 PRINT"{OFF}[< 2 T>]P 
[< 2 T>] P [< 2 T> ] P ~ 

[< 2 T>} P [ < 2 T> ] P 
[< 2 T>]P[< 3 T>]TRVS} 

{OFF } { 2*~SPAZ I } [ <M> ] 

{ 2 SPAZI}[<M>]{ 2 SPAZI} 

[<M>]{ 2 SPAZI}[<M>] 

{ 2 SPAZI}[<M>]{ 2 SPAZI} 
[<M>]{ 2 SPAZI} {RVS} 

{OFF} Q[<M>} W[<M>] E[<M>] 
R[<M>] T[<M>] Y[<M>] U 
{RVS} "; 

10070 PRINT"{OFF}{ 2 SPAZI}[<M>] 
{ 2 SPAZI}[<M>]{ 2 SPAZI} 

[<M>]{ 2 SPAZI}[<M>} 

{ 2 SPAZI}[<M>]{ 2 SPAZI} 

[<M>]{ 3 SPAZI}{RVS} "; 

10080 PRINT"{BLU}{OFF}[< 22 X>} 

Il • 

10090 PRINT"{BLK}{OFF} 

{ 2 SPAZI}{RVS}{ 3 SPAZI} 
[<G>]{ 2 SPAZI}{OFF} 

{ 3 SPAZI}{RVS}{ 3 SPAZI} 

[<G>]{ 2 SPAZI}[<G>] 

{ 2 SPAZI}{OFF} {RVS} 

{OFF}{ 2 SPAZI}{RVS} S 
[<G>]D {OFF}{ 3 SPAZI} 
{RVS} G [<G>]H [<G>]J 
{OFF} {RVS} " ; 

10100 PRINT"{OFF}[< 2 T>] P 
[< 2 T>] P [< 2 T>] P *~ 

[< 2 T>]P[< 2 T>]P 
[< 2 T>)P[< 3 T>]TRVS} 

{ OFF } { 2*~SPAZ I } [ <M> ] 

{ 2 SPAZI}[<M>]{ 2 SPAZI} 

[<M>]{ 2 SPAZI}[<M>] 

{ 2 SPAZI}[<M>]{ 2 SPAZI} 
[<M>]{ 2 SPAZI} {RVS} 

{OFF} Z[<M>] X[<M>] C[<M>] 
V [ <M>] B[<M>] N[<M>] M 
{RVS} " ; 

10110 PRINT"{OFF}{ 2 SPAZI}[<M>] 
{ 2 SPAZI}[<M>]{ 2 SPAZI} 

[ <M> } { 2 SPAZI} [<M>] 

{ 2 SPAZI}[<M>]{ 2 SPAZI} 

[ <M> ] { 3 SPAZI}{RVS} " ; 

10120 PRINT"{BLU}{OFF}[< 21 X>] 

Il • 

/ 

10130 POKE81 85,1 02 :POKE38905,6 

30000 RETURN 
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Bee Trap 



joystick 


Un prato è stato invaso da api venusiane che 
vogliono prendere il predominio della zona do¬ 
ve si trovano. 

Esse sono molto attraenti e le api terrestri, ve¬ 
dendole, si dirigono subito verso di esse e ver¬ 
so la morte sicura. 

Fortunatamente l'ape regina vi ha inviato a sal¬ 
vare le api vaganti portandole nell'aiuola, nel¬ 
la parte alta dello schermo. 

Facendo ciò guadagnerete un punto per ogni 
ape salvata, ma ne perderete uno per ogni ape 

3 G0T010 

5 J1=NOTPEEK(37151)AND60-((PEEK( 
JS)ANDl28)=0) 

7 RETURN 

10 Q=36879:J=37137:JS=37152 
30 POKEQ,110:PRINT"{CLR} 

{ 6 GIU'}{WHT}INSERISCI IL JO 
YSTICK!{ 2 GIU’}PREMI IL TAST 
O 'FIRE'." 

32 POKE37154,127 

35 GOSUB5 

40 IFJ1 032THEN35 

50 PRINT"{CLR}":POKEQ,93 :FORL=lT 
03 :PRINT"{ 3 GIU 1 }{ 5 DES}B E 
E{ 3 SPAZI}T R A P{ 2 GIU'} 

:NEXT:FORL=1T0999:NEXT 
60 POKEQ,127:FORL=lT0999:NEXT: PO 
KEQ,42 :FORL=l T02 000:NEXT 
80 PRINT"{CLR}{BLK} TU SEI UN' A 
PE-GUIDA{ 2 SPAZI}E L'APE REG 
INA TI HA{ 2 SPAZI}INVIATA IN 
{ 2 SPAZI}UN PRATO" 

90 PRINT" A SALVARE LE API CHE 
{ 5 SPAZI}SI SONO PERSE," 

95 PRINT"PORTANDOLE NELL'AIUOLA- 

- OGNI AP 

E{ 2 SPAZI}SALVATA TI" 

100 PRINT"FRUTTA 1 PUNTO, MENTRE 
{ 2 SPAZI}OGNI APE CHE VIENE 
{ 2 SPAZI}INTRAPPOLATA DA UN 
'APE" 

105 PRINT"{SU}VENUSIANA TI TOGLI 
E UN{ 8 SPAZI}PUNTO." 

110 PRINT"{ 2 SPAZI}STAI ATTENTO 
A NON{ 4 SPAZI}FARTI INTRAP 
POLARE{ 3 SPAZI}DALLE 
{ 2 SPAZI}ATTRAENTI API" 


annientata dagli ospiti extraterrestri (le api 
venusiane). 

Se poi anche voi, vagando per il prato, andre¬ 
te a finire su un’ape venusiana, morirete e la 
partita avrà termine. 

Per muovere l'ape dovrete usare il Joystick e 
dovrete stare molto attenti perché il numero 
di api venusiane presenti sul campo aumenta 
continuamente. 

Buona fortuna e... attenti alle api extraterrestri! 


111 PRINT"{ 2 SPAZI}VENUSIANE CH 
E SONO{ 4 SPAZI}PRESENTI IN 
GRANDE{ 3 SPAZI}QUANTITA' SU 
L CAMPO." 

112 PRINT"{ 4 SPAZI}BUONA FORTUN 
A!{GIU*}" 

115 FORL=lTO200:NEXT 
120 PRINT"{WHT}{ 4 SPAZI}{RVS}(P 
REMI 'FIRE')" 

130 GOSUB5 : IFJ1 0 32THEN1 30 
150 C=30720:P=7680:N=36877:V=368 
78:B=36875:K=8248:HH=36874 
175 Kl=7735:H=240:SC=0:S=0:Dl=0: 
D2=0:R=0 

200 POKEQ,191 :PRINT"{CLR}":FORL= 
0TO4 3 

225 POKEP+L,42 

230 POKEP+L+C,INT(RND(1)*8) :NEXT 
305 POKEK1+D1,32 

312 J1=NOTPEEK(37151)AND60-((PEE 
K(JS)ANDl28)=0) 

315 IFPEEK(JS)=119THEND1=D1+1 :GO 
T0335 

320 IFJ1=4THENDl=Dl-22:G0T0335 
325 IFJl=8THEND1=Dl+22:G0T0335 
330 IFJl=16THEND1=D1-1 
335 IFK1+D1>8185THEND1=450 
340 IFK1+D1<7724ANDS>0THEN2000 
345 IFK1+D1<7724THENDl=0 :POKEQ,1 
10:FORL=lT02000:NEXT:SC=SC-1 
:POKEQ,191 

350 IFD2< 50ANDX< 2THENXX=INT(RND( 
1)*351)+44 :POKEK1+C+XX,X+12 : 
POKEK1+XX,88 

360 IFPEEK(K1+D1)=42THEND2 =0 :S = S 
+1:H=H-10 
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370 IFPEEK(Kl+D1)=88THEN3000 
380 POKEKl+D1+C,8 :POKEKl+D1 ,42 
440 IFH<130THENH=240 
450 POKEV,6-X/6:POKEB,160-X:POKE 
HH,H 

505 POKEK-D2,32 

520 X=INT(RND(1)*(H/5-22) ) 

530 IFX< 3THEND2=D2+22 
540 IFX=30RX=4THEND2=D2+1 
550 IFX=5THEND2=D2-1 
560 IFK-D2<7724THEND2=0 
570 IFPEEK(K-D2)=42ANDD2>62THEND 
2=0:S=S+1:H=H-10 
580 IFPEEK(K-D2)=88THENl 000 
590 POKEK-D2+C, 1 4-.POKEK-D2,42 
600 GOTO305 

1000 POKEQ,42:FORL=1TOT0STEP.1:P 
OKEV,10-L:POKEN,200-L*5:NEX 
T:POKEN,0 :D2=0 
1050 R=R+1:IFR=50THEN3000 
1 075 IFR>4 OTHENPOKEQ, 249:GOTO305 

1100 POKEQ,191:GOTO305 
2000 POKEQ,127:SC=SC+1:PRINT" 
{HOME}{ 2 GIU'}{ 6 DES} 

{RED}HAI"SC; 


Per ricevere gli arretrati di 


2100 IFSC=1THENPRINT" PUNTO":GOT 
02300 

2200 PRINT" PUNTI":GOT02300 

2300 FORL=1T075STEP.3:POKEB,175+ 
L:NEXT:PRINT"{HOME} 

{ 2 GIU'H 22 SPAZ I} " : S = 0 : D 
1 =0 

2310 GOTO!100 

3000 POKEQ,10:FORL=1TOT0STEP. 1 :P 
OKEV,15-L :POKEB,200-L*5:NEX 
T:POKEB,0 :POKEHH,0 

3100 PRINT"{HOME}{ 3 GIU'}IL GIO 
CO E' TERMINATO!{GIU 1 } 

{ 2 SPAZI}HAI SALVATO"SC; 

3200 IFSC=1THENPRINT" APE":GOT03 
400 

3300 PRINT" API" 

3400 PRINT"{ 2 GIU'} PREMI {RVS} 
F{OFF} PER FINIRE O {GIU’} 

{ 2 SPAZI}’FIRE' PER GIOCAR 
E" 

3403 GETA$ 

3410 IFA$ = "F"THEN3 500 

3415 GOSUB5:IFJl=32THENl 50 

3420 GOTO3403 

3500 POKE371 54,255:POKEQ,27 :PRIN 
T"{CLR}{BLU}{GIU 1 }":END 



MYè. 


•'Jf’J compilare il seguente tagliando: 


J.soft 


Compilare ed inviare in busta chiusa a: 
via Rosellini 12 - 20142 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 
Indirizzo . 


CAP _ Città _ Prov. _ 

Desidero ricevere i seguenti numeri arretrati di 

a L. 2.000 cad. per un totale di L. a mezzo 

□ assegno allegato □ contani allegati 
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il Corso di BASIC 
in meno di 6 mesi 
ideato dagli specialisti 


del Gruppo Editoriale Jackson 


Insegna tutto quel che c'ó da sapere sul 
BASIC; 

mette subito in grado di programmare; 
fornisce una guida ragionata e 
competente alla scelta del 
Personal Computer. 


ABC Personal Computer 

è il corso che risponde oltretutto alle 
esigenze di chi non ha tempo da perdere, 
perché: 

si c o m p iste in meno di 6 mesi 
si compone di 24 fascicoli 
settimanali 














per tutti coloro 
che vogliono 
davvero “dialogare” 
col computer 




La rapida diffusione dei computer nelle 
aziende, nelle scuole, nelle case ha reso 
urgente e indispensabile per molti 
imparare il linguaggio del calcolatore. Ci 
sono molti modi per farlo. Il più nuovo,, 
originale,' rapido e divertente si chiama... 



ABC 

Personal Computer 

l'opera creata per rispondere alle esigenze 
di chi, per lavoro, studio, hobby vuole 
acquisire un'effettiva padronanza dei 
piccoli elaboratori per sfruttarne le 
immense, entusiasmanti possibilità. 

ABC 

Personal Computer 

svela i segreti del BASIC - il linguaggio 
fondamentale dei personal, home e 
microcomputer - e fornisce la chiave per 
programmare da soli. 


«feto 


ABC 

Personal Computer 

tratta il BASIC in modo diverso, organico, 
comprensibile a tutti perchè nasce dalla 
grande esperienza e dalla capacità 
divulgativa del Gruppo Editoriale Jackson. 

ABC 

Personal Computer 

è un'opera preziosa, 
comprensibile per i ragazzi, 
perché comincia proprio dall'abc 
dell’informatica; 
ideale per i professionisti, 
perchè rapida, esauriente, concreta; 
preziosa per gli appassionati 
perchè ricca di programmi già testati, di 
suggerimenti, di notizie sul mondo dei 
piccoli computer. 


■** 









PàscBial Commfei 

24 appuntamenti in edicola per arricchire 
la biblioteca di casa con: 

G 2 volumi di Lezioni per complessive 
608 pagine 

1 volume di Computer-test 
o 1 Dizionario di Informatica di oltre 
208 pagine 

L'opera e elegantemente rilegata 
in similpelle. 

Centinaia di illustrazioni a colon, 
foto e disegni. 

Formato dei volumi cm 21x28. 

Formato del Dizionario di Informatica 
cm. 15x21. 


r 


EDITORIALE JACKSON 

noi Tinformatica 
la conosciamo davvero 


Abbonamento-risparmio 



J 


Tagliando da Inviar# in butta chiusa a: 

Gruppo Editoriale Jackson “ABC Personal Computer” 
via Roselllnl, 12 - 20124 Milano 

Si, desidero sottoscrivere l'abbonaménto risparmio ai 24 fascicoli 
di ABC Personal Computer e alle copertine dei 4 volumi dell'opera 
Tutto al prezzo speciale di L. 80.000 invece di L 96 000 

Allego alla presente 

□ assegno non trasferibile di L 80 000 a voi intestato 

□ fotocopia di versamento di L 80.000 sul ccp n. 11666203 

□ fotocopia di vaglia postale di L 80 000 a voi intestato 


i Usocon dovranno essere inviati a 


Nome 

Cognome 



Via 

Cui a 

Prov 

CAP 


Oata 

Firma 


* 


n 


















IL TELEFONO È 02-437.385 



IN MILANO - VIA MASCHERONI, 
























































